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ABSTRACT 
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fashion. This lack of flexibilitv can lead to ambiguous interpretations of the size of software 
modules, especiallv when the person performing the measurement does not use the method 
or rules expected bv the person requesting the measurement. The Software Engineering 
Institute (SEI) Framework for Size Measurement provides a basis for flexible design of 
software measurements. The SEI framework describes measurements using nine attributes. 
This Framework is part of recentiv proposed DoD guidelines for software process 
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The problem that this thesis addresses is how to implement the SEI Framework for 
Size Measurement to flexibilitv count lines of the code in Ada software. 

The approach is to build an automated Ada Phvsical Source Line Counter that 
measures Ada source files and generates the appropriate reports. The tool works as follows: 
the user defines the measurement constraints to the tool, which calls an Ada parser to 
generate counts to be included in user-specified reports. 

The result is a program that takes user requests and Ada source files and produces 
measurement reports as output. This program fullv captures the flexibilitv of the SEI 
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I. INTRODUCTION 


A. BACKGROUND 


From 1980 to 1985, software-related costs rose from 3 percent ($40 billion) of the U.S. 
gross national product to 5 percent ($228 billion). Software effects are increasing, due in 
part to: the decreasing cost of hardware, which has been cut in half everv two vears; the 
increasing speed and capacitv of computers to new applications as computers do tasks that 
are either too complicated or too time-consuming to do manually. However, the systems 
that rely on software will only use software that 1s reliable, easy to use, and accomplishes 
the needs of the people using the systems. The software developer is tasked to ensure that 
software is delivered on time, under budget and meeting or exceeding the performance 
requirements. [BER 90] 

Software is not just the code, but the entire set of documentation, operating 
procedures, test cases, and programs associated with a computer-based system. The goal of 
software engineering is to provide effective methods for producing software systems that 
meet the needs of the customer, while conforming to the customer’s schedule and budget 
constraints. [BER 90] 

Part of this process is to provide accurately-generated attributes to estimate cost and 
effort, then track the ensuing process against the estimate. The field of computer science 
does not currently quantify accurately its attributes. [BEI 90] 

Beizer categorizes computer metrics into three groups, which are: Linguistic, 
Structural, and Hybrid. Linguistic metrics are measurements without regard to 
interpretation. For example, most counts of things are linguistic. The measurement of the 
number of unique operands or number of unique operators is linguistic. The order of either 
operands or operators is of little concern. The total number of operators or operands is the 
target, not where in the code or how they interact with each other or other parts of the code. 


[BEI 90] 


Structural metrics are based upon the structural relations between objects within the 
program. Structural metrics measure the properties of the control flowgraphs of data 
flowgraphs. An example would be to count the number of links, number of nodes, and 
nesting depths. To accomplish this tvpe of metric, the program would need to be 
interpreted. Hvbrid metrics are some combination of linguistic and structural. (BEI 90) 

There are many different measurements currently in use. Some measure the size of a 
project from the number of lines it contains, others base the size on the number of operators. 
There are measures for productivity, schedule, effort, quality, requirements designed, 
detailed designs, and use of availability of computer resources. Some commonly used 
metrics include, but are not limited to Size, Personnel, Computer use, Unit Progress, 
Schedule Progress, Design Complexity, Requirement and design Progress, Testing 
Progress, and Incremental release content. The next sections will briefly discuss some 


metrics available and the benefits of using them. 


l. Size 


The size measurement may reflect either the planned size or current or estimated 
size. One possible unit of measure is lines of code to be developed, modified, planned, and 
reused. This metric can help plan the total effort and schedule and measure productivity. 
For an example, an increase in the size of the software code, shows the project will require 


more resources of time, money and personnel. 


2. Personnel/Effort 


The personnel/effort measurement includes the estimated and current number of 
personnel working on the project. One possible unit of measure is time card hours. This 


metric measures productivity, and how staffing is effecting the planned schedule and cost. 


3. Computer Use 


The computer use measurement includes the estimated and actual percentage of 


the target system's hardware CPU, storage, and communication capacity. A possible unit 


of measure is the CPU speed. This metric shows if the planned target svstem is capable of 


the current requirements and if anv spare capacitv exists for increases later. 


4. Schedule Progress 
Schedule progress measurement includes the estimated progress, measured as the 
ratio of the planned to the actual work done on the schedule. This metric can measure 
productivitv and progress. For example, this measurement can show if the software 
development is meeting the scheduled requirements as laid out in the contract. This metric 
uses the standard cost-reporting data on software work packages completed under MIL- 
STD 2167A. 


5. Requirement and Design Progress 
The metric for requirement and design progress can track requirement 
documentation process. The measurement would detail the number of requirements, 
number of requirements documented, and the number of requirements scheduled to be 
documented. This metric is used in the specification and detailed design phases. This metric 


is another measure of progress and productivity. 


6. Testing Progress/Quality 
The measurement of progress and quality includes the planned and actual 
configuration items and completed system tests; number of new problem reports and 
opened or unresolved problem reports. These metrics can measure the progress in 
completing testing, the number of potential bugs found, and the speed of fixing them. These 


metrics can also estimate software quality, and the time needed to complete the tests. 


7. Incremental Release Content 


This metric, compares the estimated and actual release date with the estimated 
and actual components in each release. The metric measures the progress of a software 
project in relation of the estimated module releases, with the actual module releases. For 


example, if the number of actual modules increases for a planned release, is this as a result 


of changing requirements or coding is ahead of schedule? Conversely, if the number of 
actua] modules decreases for a planned release, is this a result of pressure to meet the 


published schedule dates, and coding is behind schedule? 


8. Complexity 
The most common design complexity metric is Cyclomatic complexity [NAS 90]. 
This metric indicates which parts of the software system that may be error prone or hard to 
maintain. For example, a software developer may use cyclomatic complexity on a piece of 
software such that, once a software module exceeds a level the module is reworked to bring 
the complexity level down if there is sufficient time and budget for the rework. Cvclomatic 
complexity may also provide a relative indication of where testing will be difficult, which 


aids in planning test efforts. 


B. USERS OF SOFTWARE METRICS 


Program managers and software developers are the main users of software metrics. 
Users can benefit from the use of software measurement throughout a software project. 

Program managers use software metrics to help them estimate project costs, schedules 
and performance. A good estimate is the cornerstone of a successful project. To have a 
successful program, the manager needs to know how much money to spend, (cost), how 
much time to finish the program (schedule), and what the final specifications are 
(performance). When dealing with software projects, the manager needs to know how long 
it is going to take to develop the final product and at what cost. To do this effectively, а 
good, accurate, estimate early in the program's life cycle is needed. The estimate of the 
project size will affect the cost, schedule, and performance qualities of the project. For 
instance, if the project is estimated to have the functionality of A, B, and C; the project must 
be completed in one year; the project is estimated to have 100K lines of code; with five 
programmers; and no more than $500K. Management needs to ensure that resources are 
employed to complete the project on time or to make a decision to trade-off one resource 


for another. Management will also need to know during the life of the project the status of 


the constraints placed on this project - is it falling behind or ahead of schedule, exceeding 
or within its budget. 

Software metrics can help decide where the software project 1s in relation to the project 
completion and alert project managers, maintainers, testers of future problems, delays, and 
increased costs. During a large multi-year software development, there are usually only a 
few major milestones that must be met by the software developer. The major milestones do 
not allow for adequate management visibility of the entire process for a day to day or week 
to week development tracking. A lot happens between these milestones, and a more 
detailed picture is needed on a more frequent basis. In order for management to track the 
progress of a project, they will need to know a frequent basis, day-to-day, week-to-week, 
or month-to-month how the project is progressing along the planned route. Any deviations 
from this planned route will cost the development some precious resources down the line, 
either time or money or schedule. The sooner management can make an informed decision, 
the better. A good set of software metrics provides this information. However, clear 
guidance must be given on what data to collect and made available to users. 

The use of metrics is still in the development stages with no existing standards to what 
to count or report. Reports within an organization may fluctuate from project to project, 
depending on the importance placed on metrics. This lack of standardization interferes with 
comparing of lessons learned from one project to another project. 

Software projects, like any other projects contain a certain amount of risk. The use of 
inaccurate or paradoxical metrics increases that risk. The factors that contribute to this 
include lack of: standardization for languages; rules to compare across languages, such as 
Ada and C; accurate size estimations during the requirements phase, when this information 
is needed. 

Software metrics are not a panacea, but merely a tool that can deliver response to 
management and the technical staff on various aspects of a software project. For example, 


when using a complexity metric, once a module has exceeded a certain predetermined 


threshold, then remedial action might bring the complexitv of the module back within 


allowed limits by dividing the code into smaller less complex modules. [SLI 87] 


C. WHY COUNTERS AT ALL? 


The use of size metrics (Source lines of code (SLOC) and logical source statements) 
include tracking, planning, budgeting, maintaining and estimating software projects. 
Software developers also use software size metrics to plan, control, and improve their 


product. [SEI-B 92] 


1. Automated versus Manual Counters 
Performing software measurements with a purely manual technique is expensive 
because of the extra-ordinary amount of time involved even for the simplest of 
measurements. In addition, performing any function manually may introduce errors 
because humans are fallible. To overcome these problems and provide the flexibility, 


consistency and reliability the process of making these measurements must be automated. 


2. Counting versus Reporting versus Tracking 

The smart software developer will get the most out of the information available 
from metrics. The metric numbers are tlie result of performing some measurements against 
a piece of software. These numbers represent the counting portion of the metric. The results 
will differ when the rules are changed. The displays of the outputs from the count have to 
deal with the reporting aspect of the metrics. The user requesting, the information need to 
be able to get the information in a form that he is expecting, and one that will be of use. 
Tracking refers to the ability to trace the progress of the software development project 
completely. During tracking, the manager can decide if the project is meeting the schedule. 

The Department of Defense (DoD) is trying to deal with the effects of a reduced 
budget. As DoD rightsize itself, organizations are going to have to do more with less. The 
software community will be no different. DoD has set up some long term goals that include: 


reducing the life-cycle costs by a factor of two; reducing software problems rates by a 


factor of ten; achieving new levels of DoD mission capabilitv and interoperabilitv via 
software. 

These goals implv that DoD can applv some measure of where thev are now, 
against where thev are going, to know if thev ever get there. However, no baseline has been 
set to measure progress toward these goals. DoD has teamed up with the Software 
Engineering Institute (SEI) to provide a part of the baseline that will be necessarv to meet 
the above goals by the year 2000. Software metrics will provide the measurement from the 
baseline of the software development progress. [SEI-A 92] 

SEI's task is to provide a core set of measurements for use within DoD software 
projects. In 1992, SEI published several frameworks accomplishing the goal. DoD agencies 
can use these frameworks to plan, monitor, and manage its software projects, both internal 
and contracted. These SEI framework documents outline how to: define what is to be 
measured (set a standard), by using a checklist; and to express clearly the results of those 
measurements, (provide unambiguous results) consistently. 

The SEP frameworks help management to answer several key questions. How big 
is the job? Can our staffs meet the added commitments? Can we deliver on schedule? How 
reliable is our project? Will the project meet fielding deadlines? Will the project meet the 
required specs? Will the project need more time and effort due too unplanned releases to 
fix detected bugs? The answers to these questions will help the software developer ensure 
the proper mix of personnel are available for the project and give an idea of where the 
project is in relation to the baseline. 

SEI has concentrated on defining unambiguous measures for size, effort, 
schedule, and quality. It is SEI's objective to provide tools the project manager can use 
concerning project planning, project management and process improvement. Consistent 


measurements are crucial to the project manager. 


D. PROBLEM DESCRIPTION 


Tools to count lines of code have been around for a long time. However, these tools 
are not standardized, automated and can lead to misleading and ambiguous interpretations 
of the size of software modules, especially when the person performing the measurement 
does not use the method or rules expected by the person requesting the measurement. 

One question addressed by this research looks at the ability to automate the SEI 
framework for Software Size Measurement. Introducing automation to most processes 
reduces the time required to complete the process since machines are inherently faster than 
man. If automating the SEI framework for Software Size Measurement provides more 
benefits compared to costs, then it may be of value to carry out the framework. 

Another question addressed by this research pertains to the ability to provide the 
standardization of the SEI framework for Software Size Measurement. Introducing 
standardization to the measurenient process will provide unambiguous, clear and consistent 
reports, that management can use to track their software development process. 

A final question addressed by this research looks at how to provide the flexibility 
outlined in the SEI framework for Software Size Measurement. The SEI framework is 
designed to allow over eighty different values, while still maintaining the consistency and 


reliability of the counting tool. 


E. OVERVIEW OF THESIS 


Chapter II provides background information related to this thesis. Topics covered 
include an overview of the SEI frameworks on size, effort and schedule, and quality. 
Chapter III discusses the tool design. This includes each of the major parts of the tool, TAE, 
Ayacc, and Aflex, giving an overview, purpose and interaction with the other parts. Chapter 
IV describes how to use the tool. Chapter V provides a summary of conclusions and further 
work. Appendix A contains a user manual. Appendix B list the source code for the tool. 


Appendix C lists some sample inputs and outputs. 


II. SEI FRAMEWORK 


A. DEFINITION OF FRAMEWORK 


A framework is ''a structure to hold together or support something" [WAR 90]. SEI 
has published three frameworks in the area of software measurement. The three 
frameworks are concerned with size, effort and schedule, and quality. These frameworks 
are the result of years of work by several groups of software professionals. [SEI-A 92] 

SEI does not propose that these frameworks as standards set in concrete, but to use 
them as a basis for collecting information concerning the development of software. These 
frameworks provide measurements that will lead to unambiguous and mutually exclusive 
reports. To achieve this, each SEI framework uses two criteria. The first is communication. 
A measurement is not useful if the report user does not understand the results, or the rules 
used to get them. The report needs to convey what was measured and what was not 
measured. The second criterion is repeatability. The measurement, when applied by others, 
should have the same results. Consistent report results provide confidence to the users. 
Users will not use a measurement that does not provide stable results. [SEI-A 92] 

Each framework proposed by SEI has some common structures. They all use 
checklists and recording forms. The checklists provide the repeatability mechanism. 
Having a checklist filled out and on hand, any person performing the measurement knows 
what is to be measured. The recording forms provide this communication mechanism. The 
person reading the recording forms can see what was measured and what was not. [SEI-A 
92] 

Developers of software projects are looking at ways to help manage the entire software 
process as the software projects get larger and more complicated. The software developer 
goal is to produce code that is on time, reliable, and performs as the users requested. 
Software developers can add these frameworks to their toolbox and use them during the life 
cycle of a project. The use of measurements can help the software developer produce 


quality code on time and under budget. [SEI-A 92] 


A problem with previous measurement was not doing the measurement, but 
communicating the result so thev have meaning to the user. Important parts of the 


frameworks are the attributes of the measurement. 


1. Attributes 

An attribute is “something seen as belonging to or representing someone or 
something.” [WAR 90] The attributes associated with the SEI frameworks provide insight, 
definition and characteristic of the software project being measured. [SEI-A 92} 

The SEI checklist identifies the attributes that need to be measured to ensure the 
two criteria of communications and repeatability. The checklist shows what attributes are 
included or excluded for each report. To ensure that measurements are accurate and non- 
overlapping, SEI has carefully chosen the attributes so that they are orthogonal in nature. 
The attributes are the broad categories of the frameworks. Each attribute is made up of two 


or more values to provide a finer measurement. [SEI-A 92] 


2. Values 


The values for each attribute were chosen so that they are mutually exclusive of 
each other. The reason for this is to help eliminate misunderstandings that can result if the 
values for any one attribute are overlapping. Values are listed on the checklist form. The 
measurement user then fills out the form and either chooses each value as included in the 
measurement, or excludes the value from the measurement. Statement type is one attribute 
within the SEI framework for Size. The listed values for this attribute are: executable, 
declarations, comments on their own line, comments on line with source code, comments 
that are banners or nonblank spacers, empty comments and blank lines. This is not an 
exclusive list, users can add or change as they see fit. However, users need to ensure that 
changes or modifications to the values keep the mutually exclusive property. Changes that 


violate the mutual exclusion property could result in possible double counting of some 


values. [SEI-A 92] 


3. Reports 
After the checklist has been filled out, and the measurement performed, the next 
step is to express the results of the measurement in a wav that can be understood and read 
bv the people who use them. Each of the three frameworks that SEI published has an 
example of some predefined initial reports and the associated value settings. The reports for 
the SEI framework on Size are discussed in more detail in chapter three. A more detailed 
discussion of reports for the other two frameworks can be found in the Software 


Engineering Institute reports. 
B. APPLICATIONS OF FRAMEWORK 


1. Software Size Measurement: 

The SEI framework for size provides two independent templates that can measure 
the size of software, phvsical source lines and logical source statements. The use of size 
measurements can be used bv software project managers to plan, maintain, track, and 
estimate software projects. [SEI-B 92] 

Another goal of SEI was to reduce ambiguities and misunderstandings in the 
different reports of software size. Without using a process similar to the SEI framework, 
reports containing statements like "our activity produced over 500K source lines of code" 
would be meaningless to everybody except the person performing the count. The reason 
this count is unclear is the fact that the statement does not tell the reader what was counted, 
what was not counted, rules used to perform the count, if the count included all software 
modules, or just newly developed modules. The user of the reports needs to understand the 
rules and methods used to perform the counting operations. SEI's framework on size 
provides for complete and explicitly defined measures for both physical source lines of 
code and logical source statements. [SEI-A 92] 

The framework also provides for the ability to ensuring that the report received 
this month is consistent with the report received last month and the one that will be received 


a year from now. This consistency will allow users to gain insight into project trends, to 
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compare one project against others, and ultimatelv to make necessarv corrections if needed 


in the total software development process. [SEI-A 92] 


2. Software Effort and Schedule Measurement: 

The framework for effort and schedule provides a starting point for building 
unambiguous measures that will help manage, software projects and processes. The SEI 
reports are an approach to gather information for defining and recording staff-hours and 
related schedule information. There are manv reasons for collecting and using data for 
staff-hours, three of which are: to pav individuals (pavable hours), to charge for hourlv 
services (billable hours), and to use in productivity and quality studies (actual hours). [SEI- 
A 92] 


3. Software Quality Measurement: 

As with the other SEI frameworks, the goal of the quality framework is to provide 
the user the ability to obtain clear, non-overlapping and repeatable reports of software 
quality. The framework includes: the relationship of the discovery, reporting, and 
measurement of problems and defects; a set of measurable, orthogonal attributes for 
making the measurement descriptions exact and unambiguous; checklists for creating 
unambiguous and explicit definitions or specifications of software problem and defect 
measurements; examples of how to use the checklists to construct measurement 
specifications; and examples of measurements using various attributes of software problem 
reports and defects. The reports of software quality can help the user to estimate, plan, and 


track, the software development process. (SEI-D 92] 


C. AUTOMATION OF SIZE MEASURE 


There are several reasons for selecting the size measurement as the measurement to 


automate first. They are: 


* Most of the historical data for cost models and project estimating are based 
on physical measures of source code size. 


e Size measurements are easier to define and use. 
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D. PREVIOUS SIZE CALCULATORS 


There are two size calculators that were looked at as examples of tools to count source 
line of code. One tool was a static prototvpe of the SEI framework, on DOS a platform. The 
other tool was a mature DOS product for Pascal programs, to calculate non-SEI size 


measures and other metrics. 


]. DOS Version of the SEI Framework on Size 

The version tested was a prototype of the SEI framework on size. The tool was . 
not completely functional. The tool as tested only carried out the attribute's statement type 
and origin. The other attributes were scheduled to be set up at a later release date. The tool 
also did not allow for the operator to change the settings of the values for the two attributes 
supported. The settings for both attributes were set to "included." [CSC 92] 

AdaS AGE provides the user interface to the tool. The interface was a copy of the 
checklist form provided by the SEI framework. The tool requires the user to type in the 
name of a source file. The source file will contain the names of Ada modules. The tool will 
write the results of the measurement to a file. [CSC 92] 

А session at a recent software engineering conference included descriptions of 
tools developed in parallel with this thesis, but these were unavailable for examination. 


[SEI 93] 


2. PC-Metric for Pascal 


The PC-Metric for Pascal is a DOS-based tool that provides three separate 
measurement reports on Pascal programs. The three reports are the complexity report, the 
exception report and the error report. As a part of these reports, the PC-Metric for Pascal 
also provides information on the number of lines of code contained in the source file. 
However, the lines of code are just that, the total number of lines of Pascal code. No 
information on the statement types that were counted, how the code was produced, the 
origin of the code and so on. The method for obtaining the line count was to count the total 


number of lines in the source file. [SLI 87] 
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However, the PC-Metric for Pascal does provide some insight into the 
complexity, the exception and errors of the Pascal source file. Also included with the 
documentation, is a tutorial on software metrics. The tutorial covers how to develop 
metrics, metrics’ accuracy, specific metrics and how to use metrics in software 


development. [SLI 87] 


E. SUMMARY 
This chapter has discussed the SEI framework, the building blocks of the framework, 


how the frameworks can be applied, and examples of some tools that provide physical 
source lines of code measurements. The SEI framework is designed to provide a flexible, 
automated measurement tool based on consistency and reliability. The two tools 
summarized above do not provide the flexibility of the SEI framework. The Automated 
Ada Physical Source Line Counter provides a flexible, automated tool that provides 


consistent and reliable results. 
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ПІ. TOOL DESIGN 


A. ATTRIBUTES SUPPORTED 


The SEI framework on size details nine different attributes that are orthogonal in 
nature. The Automated Ada Source Line Counter implements six of the nine attributes. The 


following sections discuss the attributes in detail. (See Figure 1) 


SEI Attributes 


* Statement type 
* How Produced 
* Origin 
* Usage 
* Delivery 
* Development Status 
Functionality 
Replications 
** Languages 


* Implemented in this tool 
** Ada 1s the only language 
implemented 





Figure 1 SEI Attributes supported and not supported 


1. Statement Type 


The statement type attribute distinguishes the source statements according to the 
function they perform. There are five basic types of statements, they are: executable, 
declarations, compiler directives, comments, and blank lines. Comments are further 
subdivided into: comments on their own lines, comments on lines by themselves, banner 
and nonblank spacers, and empty comments. The value of this attribute is determined for 


each physical source line of code during the parsing of the input files. [SEI-B 92] 
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2. How Produced 
This attribute is used to identify the process by which the individual line of code 
was produced. This attribute is divided into six values, that include: programmed, 
generated with source code generators, converted with automated translators, copied or 
reused without change, modified, and removed. The value of this attribute is determined by 
special comments in the source code. The default value for this attribute is ‘programmed’. 


Special comments are discussed in greater detail in PARSER on page 32. [SEI-B 92] 


3. Origin 

The attribute origin tracks the prior life, if any, of the product software. The origin 
attribute is divided into eleven values. The values are the following: new work; a previous 
version, build or release; commercial, off-the-shelf software (COTS), other than libraries; 
government furnished software (GFS), other than reuse libraries; another product; a 
vendor-supplied language support library (unmodified); a vendor-supplied operating 
system or utility (unmodified); a local or modified language support library or operating 
system; other commercial library; a reuse library (software designed for reuse); and other 
software component or library. The value of this attribute is determined by special 


comments in the source code. The default value for this attribute is ‘new work’. [SEI-B 92] 


4. Usage 

The usage attribute makes the distinction of code developed as part of the 
software project and code not developed for the software project. The attribute usage is 
divided into the values in or as part of the primary product and external to or in support of 
the primary product. Code that is developed as part of the software project could have 
different costs associated with the development, maintenance, and testing of the code 
versus code that is developed for support of the code. For example, test drivers are not 
maintained or documented at the same level as the primary code. Distinguishing the 


differences is important for reports of productivity, quality, effort, and progress. The value 
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of this attribute is determined bv special comments in the source code. The default value 


for this attribute is 'in or as part of the primarv product'. [SEI-B 92] 


5. Deliverv 
The deliverv attribute distinguish between the form and destination of the source 
code. In this tool, deliverv means delivered to the organization that will maintain the source 
code. The deliverv attribute is divided into four values, that include: delivered as source; 
delivered in compiled or executable form, but not as source; under configuration control; 
and not under configuration control. For reports A through E, this value is set to ‘delivered 
as source’. For report F, the tool user has the option to pick one of the four values of this 


attribute. The default value for report F is ‘delivered as source’. [SEI-B 92] 


6. Development Status 

The development status attribute is used to mark the progress of the source code 
from the design phase to a finished product. The count of the various values of development 
status can provide insight into the development and integration workload yet to be 
accomplished. The attribute development status is divided into eight values, which are: 
estimated or planned; designed; coded; unit tests completed; integrated into components; 
test readiness review completed; software (CSCI) test completed; and system test 
completed. The value for this attribute is determined by special comments in the source 


code. The default value for this attribute is “system tests completed’. [SEI-B 92] 


7. Clarifications (General and Ada Specific) 

The clarification attributes, both the general and Ada specific, aid in explaining 
the rules used to define the differences among the eight values of the attribute statement 
type. The general clarifications are for any language. The Ada specific clarifications deal 
only with Ada programming language issues. Each general and Ada specific clarification 
is associated with a unique statement type attribute value. For example, the default setting 


for counting a null statement, is to count the null statement as an executable. The 
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clarifications for reports A through E can not be changed. In report F, the user mav change 
the clarifications rules from one of the attribute statement type values to another. [SEI-B 


DA 


B. ATTRIBUTES NOT SUPPORTED 


There are two attributes of the SEI checklist that were not implemented in this tool. 
They are functionality and replications, which are discussed briefly in the following 


paragraphs. 


1. Functionality 
The attribute functionality deals with whether or not a line of source code is a 
functional part of the code or not. The attribute functionality 1s divided into two parts 
operative and inoperative. Inoperative is further divided into inoperative but functional 
(intentional dead code, reactivated for special purposes) and nonfunctional (unintentionally 


present). [SEI-B 92] 


2. Replications 

The attribute replication describes how to account for a software project's master 
source statements from its copies. There are four values for the attribute replications, which 
are: master source statements (originals); phvsical replicates of master statements, stored 
in the master code; copies inserted, instantiated, or expanded when compiling or linking; 
and postproduction replicates -- as in distributed, redundant, or reparameterized systems. 
[SEI-B 92] This attribute was not implemented in this tool, although combinations of the 
Ada Physical Source Line Counter with a differencing tool such as the unix DIFF might be 


useful [SUN 90}. 


C. DEFAULT REPORTS/OUTPUT 


There are a total of six reports that this tool can generate. Five of the reports are defined 


by the SEI framework on Size. A sixth report is provided to allow the user to create, modify, 


and use as thev see fit. Appendix C contains examples of each reports output. Each report 


will be brieflv discussed in the following paragraphs. 


1. ReportA 

Report A is the basic definition for counting physical source lines of code. This 
report will give us information on the total noncomment and nonblank physical source lines 
of code. Report A explicitly spells out the rules to be used when comments are on the same 
lines as other source statements. The report also addresses all origins, stages of 
development and code that is integral to the product and external to the product, and forms 
of code production. Reports B through F build upon this basic definition. See Figure 2 for 
a written specification for this report. No data arrays are included in this report. [SEI-B 92] 


For the programming language Ada, measure and record these values: 
Total lines 


Individual totals for all values included 





Figure 2 Written Description for Report A 


2. Report B 


Report B provides the capability for project tracking. Report B provides this 
information through the expanded use of the development status attribute. For example, 
report B will provide the progress of the software project through each of the production 
processes, the how produced attribute in comparison to the stage of development and the 
development status attribute. This is accomplished through periodic measurements using 
report B and comparing the results of the two-dimensional array. See Figure 3 for a written 
specification for this report. Appendix C contains an example of report B and the associated 


two-dimensional array. [SEI-B 92] 


3. Report C 


Report C is designed for the end of project data gathering. The results of this 


report can be used to improve future estimates and planning for future projects. This data 
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For the programming language Ada, measure and record these values: 


Total lines 
Individual totals for all values included 


A two-dimensional arrav showing the number of lines 
in each development status 
for each production class 





Figure 3 Written description for report B 
would be collected at the end to help fine tune existing estimates and cost models and for 


the estimation of future software projects. Report C adds to report A bv including the values 
of comments on their own lines and comments on lines with source code for the statement 
tvpe attribute, the value removed for the how produced attribute, and a two-dimensional 
arrav, six bv eight, containing the attributes statement tvpe and how produced. See Figure 


4 for a written specification for this report. [SEI-B 92] 






For the programming language Ada, measure and record these values: 


Total lines 

Individual totals for all values included 

A two-dimensional array showing the number of lines 
in each statement type 
for each production class 









Figure 4 Written description for report C 


4. ReportD 


This report measures reuse of software code. The data elements included in this 
report will help the user to quantify and interpret the amount of software reuse. This report 
can also be used to measure productivity and quality. Report D, in addition to the 
information for report A, asks for a two-dimensional array, six by eleven, containing the 
attributes of how produced and origin, and includes the value removed for the attribute how 


produced. See Figure 5 for a written specification for this report. [SEI-B 92] 


5. Report E 


Report E is the combination of report C and D. Combining the two reports can 


save resources including time, money, and paper. However, the trade-off for this report is 
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For the programming language Ada, measure and record these values: 
Total lines 


A two-dimensional array showing the number of lines 
in each production class 
for each origin 





Figure 5 Written description for report D 
the creation of a three-dimensional array. Three-dimensional arrays are harder to 


communicate to the user, especially using two-dimensional medians such as monitors and 
paper. Report C generated one two-dimensional array of six by eight. Report D generated ' 
one two-dimensional array of six by eleven. Report E on the other hand, generates eleven 
two-dimensional reports of six by eight. The higher number of arrays are required to 
facilitate the display of information that can be displayed on a terminal, written to an ASCII 
file, or printed on paper. A three-dimensional array is displayed by taking the third 
dimension of size eleven and creating one two-dimensional array of six by eight from the 


other two dimensions. See Figure 6 for a written specification for this report. [SEI-B 92] 


For the programming language Ada, measure and record these values: 
Total lines 
A three-dimensional array showing the number of lines 


in each production class 
for each origin 
in each statement type 





Figure 6 Written description for report E 


D. USER-DEFINED REPORTS/OUTPUT 


The tool enables the user the ability to create any unique report. This report is left up 
to the user of the tool to design and create according to requirements. The initial settings 
are the same as report A. For instance, the user would use report F to assign a different 


priority to the values of the statement type attribute. 
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Е. DATA STRUCTURES 

There are several kev data structures used throughout the tool. The data structures are 
declared in the Transportable Applications Environment (TAE) global package because of 
the need for TAE generated Ada code to have the abilitv to set kev variables used for everv 
report and to change, as required, the user defined report. 

The kev elements of the data structure include: variables used for everv report; the size 
attributes declared as enumerated tvpes; one five-dimensional arrav to hold the source line 
count per reports; one one-dimension array to track the precedence levels of the statement 
type attribute; one two-dimensional array that maps the eight different statement type 
values to two boolean variables to track statements on lines; a record structure containing 
five fields, one field for each of the five dimensions and a record that contains all of the 
supported attribute values. 

Several of these different data structures are repeated, one instance of each data 
structure for each possible report. Having the multiple instances of the data structure allows 
for up to six different reports to be generated at the same time, even though the Ada input 
files are only parsed once. À trade-off was made in favor of time to make repeated runs of 
the tool versus the extra storage space needed to generate all six reports during one run. А 


detailed discussion of each key data structure follows. 


1. Variables used for every report 

Every time that the Automated Ada Physical Source Line Counter is invoked, 
there are two pieces of information that must be entered by the user for the tool to run 
properly. The two pieces of information are the names of the input and out files. There are 
two other pieces of information that are not mandatory, but will help in the tracking of the 
different report versions. The name of the person requesting the information and the name 
of the report are non-mandatory. 

The input file is an ASCII file that contains the names Ada source file (s) to be 


processed by this tool. Even though there exist a cost in time to generate the file with all the 


Dy 


filenames, the benefits of this approach outweigh the cost. (See Figure 7) The output file 


Input filename Filelist 


A aH Ada source file 1 .а 
Ada source file 2.a 


Filelist Ada source file N.a 





Figure 7 Relationship of input file name and Ada source files to be measured 
name is used to create an ASCII file containing the reports requested bv the user. At this 


time there ia no default name used by the tool. 


2. Size Attributes 
The five attributes of the SEI framework that are measured in this tool have each 
been declared as enumerated types. The values for each attribute enumerated type are the 
values for that attribute as defined in the SEI framework for size checklist. Using 
enumerated types facilitated the use of the Ada language attributes associated with 


enumerated types. (See Figure 8). 


type STMT TYPE is (EXECUTABLE, DECLARATIONS , 
COMPILER, DIRECTIVES, 
CMTS ON OWN LINE, 


CMTS WITH SRC CODE, 
BANNERS NON BLANK, SPACERS, 
BLANK COMMENTS, BLANK LINES); 





Figure 8 Attribute Statement Type values declared as an enumerated type 
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3. Five Dimensional Arravs 

To keep track of the five orthogonal attributes a five dimensional arrav was 
created, one dimension corresponding to each attribute. This was followed by the creation 
of six instances of the five dimensional array. Each instance of the five dimensional array 
is associated to one of the six reports. Each line counted of the Ada source files has one of 
the values of each attribute associated with it. The Automated Ada Physical Source Line 
Counter uses the five-dimensional array to track this association. To calculate the 
individual totals for each value, the five-dimensional array is traversed one dimension at a 
time. The tool also uses the five-dimensional array when computing the requested two and 


three dimensional arrays for reports A through E. (See Figure 9) 


type COUNT ARRAY TYPE is array (STMT TYPE, 
HOW PRODUCED, 
ORGIN, 


USAGE, 
DEVELOPMENT STATUS) of natural; 





Figure 9 Declaration of five dimensional array 


4. Priority Arrays 

The priority arrays are checked each time the lexical analyzer recognizes the end 
of the line marker. At this time, the highest priority of the statement type values found on 
the line is determined. When the statement with the highest priority is marked as 
"included", the line statement type attribute is set to this value. 

For the five default reports A through E, the precedence for each report is the 
same and can not change. For the user defined report F, the precedence for each value of 
the statement type can be set according to the user’s requirement. The user sets the 


precedence levels for report F inside of the user interface. (See Figure 10) 


type PRIORITY_TYPE_ARRAY is array (1..8) of STMT_TYPE; 





Figure 10 Declaration of Priority type array to track precedence levels 
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5. Flags Arrav 
A two-dimensional arrav was created to determine when a particular statement 
tvpe value has been recognized on a line. The first dimension of the arrav is the range of 
the enumerated statement tvpe. The second dimension of the arrav contains two boolean 


variables. (See Figure 11) One of the boolean values is set to true when the start of a 


type FLAGS TYPE ARRAY is array (STMT TYPE, 1 .. 2) of boolean; 





Figure 11 Declaration of FLAGS TYPE ARRAY 
language construct is recognized by the parser. The second boolean value is set to true when 
the end of a language construct is recognized by the parser. (See Figure 12) When the 
lexical analyzer recognizes the end of line, the flags array is traversed from highest to 
lowest precedence. The statement type value recognized with the highest precedence is 


then counted, if required. 


set exec start: (FLAGS, ARRAY(STMT TYPE'val(0), 1) := true; ); 


set exec end: (FLAGS ARRAY(STMT. TYPE 'val(0), 2) := true; ]; 





Figure 12 Example of FLAGS TYPE ARRAY values set to true 


6. Current Settings Record 
Іп order to track each of the five dimensions, the record structure 
"current. settings" was created. This record structure is used whenever a physical line of 
code is counted. The respective current, settings field is updated when the parser recognizes 
either the language constructs associated with the statement type attribute or the special 


comments for the other four attributes. 


7. Checklist Variables 


A record structure, record flags, was created to track each attribute and its values. 


There is one instance of record flags for each report. The default values for reports A 
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through E are assigned when the package Global is elaborated. The default values for report 
F are the same as the basic report A. The user specifies their own values for report F bv 
stepping through the user interface panels. See Appendix B for copy the global package 


source code. 


F. OVERVIEW 


The Automated Ada Physical Source Line Counter, as its name suggests, is a tool that 
will perform a count on Ada source files and generate reports of the total number of 
physical source lines counted and individual totals of each value included for each report 


requested. The tool consists of four parts diagramed in Figure 13. 


Automated Ada Physical Source Line Counter 


User Interface 


Data 
Structure 


Report 
Generator 


Ada 
Source files 


Reports A- F 





Figure 13 Overview of the Automated Ada Physical Source Line Counter 
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The first part is the data structure. The data structure holds all of the default and user 
set variables that are used bv the other three parts of the tool. The default values are set for 
reports A through E during elaboration. The user-specified values for report F are set by the 
user via the user interface. The second component is the user interface. The user interface 
allows the user to request either five default reports, or to create a report of their own. The 
user interface was built using TAE, and based upon the SEI framework on size 
checklists.[NAS 90] The next element of the tool is the parser. The parser was created using 
two tools, Ayacc, and Aflex. Ayacc generates a parser, where Aflex generates a lexical | 
analvzer used bv Avacc. The parser created bv Avacc and Aflex is used to distinguish 
between the different values of the statement tvpe attribute, recognize special comments, 
and at the end of everv line determine how the line should be counted, if at all. The next 
part is the report generator. This part performs the calculations that sum the individual and 
aggregate totals and anv two and three-dimensional arravs. In addition, each report that is 
requested is generated and written to an ASCII file. Each part of the tool will be discussed 
in greater detail in the following sections. A user manual for the tool is included in 


Appendix A. 


G. USER INTERFACE 


The user interface provides a window tvpe access that is an easv-to-use method to 
request one or several pre-defined reports or to create an individualized report. Each of the 
supported attributes is contained in its own panel or screen. The user interface is made up 
of eleven panels. (See Figure 14) 

The panels are made up of selection items, text items and labels. There are three tvpes 
of selection items. The tvpes are push-button, checkboxes and radio buttons. The push- 
button is used to connect one panel to another. The push-buttons are shaped like a rectangle. 
The checkboxes are used whenever the user has the choice to pick more than one item. The 
checkboxes are shaped like a square. For example the user can pick just one report, sav A, 


an or the user can pick all six reports, A through F. The radio buttons are used when the 
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user can pick only one of the items in the group. The radio-buttons are shaped like a 
diamond. At least one item will always be picked. For example, if the user picks the value 
blank lines to be included in report F, then the radio button for "Includes" will be 
highlighted. The button for “Excludes” will change from highlighted to blank and vice 
versa. 

Each of the panels have default settings for push-buttons, radio-buttons and 
checkboxes. Each default selection is highlighted. To change or add too the default 
selection, the user must use the left mouse button. The default push-button can be selected 
when the return key is pressed while the cursor is in that panel. 

The push-buttons for each panel are displayed along the bottom. Two of these push- 
buttons are common to each panel and will be discussed separately from each particular 
panel. The first push-button is the “Quit” button. The other push-button is the “Help” 
button. When the quit button is pressed, the quit panel is displayed over the top of the 
current panel. The quit panel gives the user the choice to quit the application, or to go back 
to the panel that they were just on. When the help button is pressed, a help panel with 
information particular to that panel will be displayed. When the user is finished with the 
help screen, the help screen will disappear and the panel that initiated the help screen will 
again be the active screen. 

The first panel is an introduction panel. The introduction panel contains the name of 
the tool, name of the author and three push-buttons displayed along the bottom. Beside the 
quit and help push-buttons, the other push-button is the “Next screen” button. The next 
screen button will make the introduction panel disappear, and bring up the second panel. 
The next screen push-button is the default push-button for the introduction panel. 

The second panel is where the user will enter the mandatory information for the tool 
to operate. The second panel contains four string keyin areas, a group of six checkboxes 
and four push-buttons. The string keyin areas are for the report name, file list, requestor 
name and output file name, respectively. The user enters the appropriate information by 


placing the cursor over the window and type in the appropriate information. Six checkboxes 
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represent six different reports that can be generated bv this tool. Anv one or all of the 
checkboxes mav be selected. Report A is the default selection. In addition to the quit and 
help push-button, the second panel also has displayed along the bottom a "Generate 
Report' push-button and a ''Specifv Custom Report' push-button. When the generate 
report button is pressed, the second panel will disappear and the generate report panel will 
appear on the screen. When the specifv custom report push-button is selected, the second 
panel disappears, and activates the third panel. The generate report push-button is the 
default push-button for the second panel. 

The third through the seventh panels contain the attributes of the SEI checklist, one 
attribute per panel. There are five push-buttons on each of these panels. The first two push- 
buttons are the quit and help buttons. Another push-button is the "Previous Screen" push- 
button. When the previous screen button is pressed, the current panel disappears, and 
activates the previous panel. The next push-button is labeled "Next Screen". When pressed, 
the current panel will disappear, activating the next panel in the sequence. The last push- 
button is the generate report button. When this button is pressed it will make the current 
panel disappear and activate the generate report panel. The generate report panel is the 
default button. 

Along the top right corner in panels three through seven are two radio-buttons 
displayed, one above the other. These radio-buttons allow the user to specify that in 
addition to the individual totals, this attribute will be included in a multi-dimension array 
at the end of the normal report format. When this choice is selected, all of the attributes 
selected as such (must have at least two) will be displayed as two or three dimensional 
arrays at the end of report F. When more than three attributes are selected, then all 
combinations of N choose three will be displayed at the end of report F, where N will be 
either four or five. The other major part of panels three through seven are the radio-buttons 
that correspond to the values for each attribute. All of the radio-buttons are the same, either 
the include button is highlighted or the exclude button is highlighted. Panel three also has 


eight integer keyin windows. Each integer keyin window corresponds to one of the values 
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of the attribute statement type. TAE will ensure that the precedence entered is within the 
range of one through eight. However, if the user does not ensure that each precedence value 
is unique, the results for report F may not be accurate. 

The eight and ninth panels are for the general and Ada specific clarifications panels 
respectively. These two panels are similar to panel three, the difference being the number 
of radio-buttons. There are a total of thirteen general clarifications and six Ada specific 
clarifications. Each clarification is associated with one of the values of the attribute 
statement type. 

The tenth panel is the generate report panel. This panel has two push-buttons displayed 
along the bottom of the panel, they are labeled cancel and generate report. The generate 
report is the default button. The cancel button will make the generate report panel 
disappear. The user must then use the mouse to click on the icon of the previous panel. In 
addition to the push-buttons, this panel displays a text message explaining the different 
options available to the user. 

The last panel is the quit panci. This panel also has two push-buttons displayed along 
the bottom of the panel, they are labeled quit and cancel. The quit button is the default 
button. When the quit button is selected, the panel will disappear and the tool will 
terminate. When the cancel button is selected, the quit panel disappears leaving the 
previous panel as the active panel. In addition to the push-buttons, there is a text area that 


displays the options to the user. This is provided in lieu of a help button. 
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Figure 14 Overview of User interface 
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H. PARSER 

The Automated Ada Physical Source Line Counter uses the generated parser from 
Ayacc [TAB 88] to differentiate between executable, declarations and compiler directives. 
These are three of the eight values associated with the attribute statement type. To do this, 
the specification file for Ayacc, ada.y, was slightly modified. 

The differences between the three attributes were used to set flags when a particular 
language construct was recognized. To set these flags, several nonterminals were added to 
ada.y. The purpose of these nonterminals was to have the parser execute the associated Ada 


code. (See Figure 15) 


set exec start: (FLAGS. ARRAY(STMT TYPE'val(0), 1) := true; ); 


set exec end : (FLAGS ARRAY(STMT TYPE 'val(0), 2) := true; }; 





Figure 15 Example of Ada code executed inside of Ayacc 
The Automated Ada Physical Source Line Counter uses the lexical analyzer generated 
by Aflex [SEL 90] for several purposes. The primary reason is to provide the lexical 
analyzer function required by Ayacc. This tool also uses Aflex to find all occurrences of 


each type of comment and blank lines in the Ada source files. (See Figure 16) 


-- Checking for blank lines 
ANt]*\n {ECHO; 
FLAGS_ARRAY (STMT_TYPE’ VAL (7), 1) := TRUE; 


ADD TO ARRAY; 
linenum;) 





Figure 16 Example of rule to find blank lines 


This tool also uses the lexical analyzer to recognize certain Ada source statements/ 
fragments in certain situations. These situations have been derived from the clarifications 
code (general and Ada specific). For example, rules were added to the Aflex specifications 
file which will find when one of the following occurs: an “elsif” on line by itself; an “else” 


on line by itself; a "then" on line by itself; or “others” on line by itself. (See Figure 17) 
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---- Looking for an elsif on a line by itself 


-- ^x]*"elsif" [x] ^n (ECHO; ENTER(Z); 
if COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 11) then 
FLAGS ARRAY (STMT, TYPE'val (0), 1) :z TRUE; 
FLAGS, ARRAY (STMT TYPE 'val (0), 2) := TRUE; 
ADD TO ARRAY; 
end if; 
linenum; 
retum(ELSIF TOKEN);) 
-- Looking for an “else” on a line by itself 
^[x]*"else" [v] ^n (ECHO; ENTER(Z); 
if COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 10) then 
FLAGS, ARRAY (STMT TYPE 'val (0), 1) : TRUE; 
FLAGS ARRAY (STMT TYPE 'val (0), 2) :z TRUE; 
ADD TO ARRAY; 
end if; 
return(ELSE ТОКЕМ);) 


linenum; 





Figure 17 Example of rules added to Aflex 
Finally, this tool uses the lexical analyzer from Aflex to recognize when any of the 27 


special comments or flags have been used in the Ada source files. The special comments 
are used to change the values of the four attributes How Produced, Origin, Usage, and 
Development Status. When a special comment is found, Ada code is executed to set the 
global flag SPECIAL COMMENT to true and to set the associated current, settings field 


to the corresponding value. See Figure 18. 
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*.-* Generated" (ECHO; 
SPECIAL COMMENT :z TRUE; 


CURRENT SETTINGS.SECOND ATTRIBUTE :: HOW PRODUCED "уа! (1);) 





Figure 18 Example of code to recognize Special comments 
When the lexical analyzer reaches the end of each line, the procedure 


ADD TO ARRAY is called. This procedure determines which reports are active, 
determines the highest priority of the statement type(s) recognized on the line, and 
determines if this statement type value is included or excluded for the reports that are 


active. If the statement type value is included, then the count for that report is incremented. 


I. REPORT GENERATOR 


The report generator provides for the generation of the reports after the Ada source 
files have been parsed. The report generator is made up of several Ada packages. Two of 
which will be discussed here. The main package is the report_package. The main functions 
of this package are to determine which reports have been requested; perform the necessary 
calculations of the values for each report; and to create and write to the output file the 
reports requested. Several of the default reports require the generation and output of two or 
three dimensional arrays. To accomplish this, a separate generic package was created. 

All calculations of the two and three dimensional arrays are performed in the generic 
package. The large number of multi-dimensional arrays that could occur in report F was the 
driving factor for this package. In report F, the user can request data arrays for all five 
attributes. This would require ten two-dimensional arrays of five choose two and ten three- 
dimensional arrays of five choose three. To reduce the number of instantiations of the 
generic package, the permutations of the two and three dimensional arrays were checked 


and the duplicates were discarded. The generic package is instantiated fourteen times. 


J. SUMMARY 


This chapter discusses the attributes supported, attributes not supported, default 


reports A through E, user defined report F, key data structures, user interface, parser and 
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the report generator. Together, these parts show that the SEI framework for Size can be 
implemented into a fool providing flexibilitv and maintaining the two criteria of 


communication and repeatabilitv. 
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IV. TOOL USAGE 


A. INTRODUCTION 

This chapter describes what is needed to use the tool in section B. Some limitations of 
the tool are discussed in section C. Section D goes over the command line invocation. An 
extended example of an Ada source file is discussed in Section E. Finallv, section F 
discusses the reports generated as output from the extended example. Appendix À provides 


a complete user manual for the tool. 
B. REQUIREMENTS 


]. Hardware 
The Automated Ada Physical Source Line Counter requires the use of an Unix 
workstation. The tool has successfully run on several SPARC compliant computers: 
Solbourne Computer S4000, Sun SPARC station 10, Sun SPARC station 1 and Sun 
SPARC station 2. 


2. Software 


The Automated Ada Physical Source Line Counter requires the use of “X- 


windows" to operate. This tool has worked under Openwindows and Motif. 


3. Input 
The Automated Ada Physical Source Line Counter requires the entering of 
several pieces of information to run correctly. The information that is required are the input 
filename, output filename, name of person requesting report and name of the report. The 
first two items are required information. The second two pieces of information are not 


required, but suggested. 


4. Legal Ada Syntax 


The Automated Ada Physical Source Line Counter will only work with 


syntactically correct Ada source files. In some instances, generated code will have 
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embedded special characters, such as (^L, page breaks for printing) that will cause a syntax 
error in the parser. This particular error does not cause the tool to terminate, but there may 
be some embedded characters that do. This prototype tool was built using version 1.0 of 
Ayacc [TAB 88]. A newer and improved version of Ayacc was released after the tool was 


built and offers some improvement in acceptance of Ada source files. 


C. LIMITATIONS 


1. Package Conflicts 


The parser generated by the two tools Ayacc uses a grammar supplied be the user. 
[TAB 88] For this tool, the grammar was the one supplied with Ayacc, but modified for 
purposes of the tool. For the situation of recognizing either a package spec, a package body 
or a generic package requires that for the proper counting of lines, the entire package spec, 
package declaration or generic package declaration must be one line or the final count may 


be incorrect. 


gen inst : 
PACKAGE TOKEN IDENTIFIER IS TOKEN 
NEW TOKEN expanded n .gen act. part. *;' 


PROCEDURE ident IS. 

NEW TOKEN expanded n .gen act part. *;' 
FUNCTION TOKEN designator IS TOKEN 
NEW TOKEN expanded n .gen act part. ';' ; 





Figure 19 Example of Ada.y input file to Ayacc 


2. Coding Style 
The Automated Ada Physical Source Line Counter counts physical source lines 
of code and is based upon the SEI framework on size. [SEI-B 92] Different coding styles 
can and will result in different results. For example, let's compare a short example of the 
same code, but different writing styles. (See Figure 20) The total number of non-comment, 


non-blank lines for version one would be two. However, the total for non-comment, non- 
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blank lines for the same exact code in version two results in a total of five. The use of a 
prettv printer on the Ada source files prior to using the Automated Ada Phvsical Source 


Line Counter will ensure consistent results for reports A through E. 


Version One 
procedure EXAMPLE ONE is TEMP. INT : integer:- 0; begin 


TEMP. INT :: TEMP INT-4 1; end EXAMPLE ONE; 


Version Two 


procedure EXAMPLE TWO is 
TEMP INT : integer:= 0; 
begin 
TEMP_INT := TEMP_INT + 1; 
end EXAMPLE_TWO; 





Figure 20 Example of two different coding styles 


D. COMMAND LINE INVOCATION 


To start the Automated Ada Physical Source Line Counter, the user must either be in 
the directory that contains the tool or have the directory containing the Automated Ada 
Physical Source Line Counter in a valid path statement. In addition, the user must be 
running in an X-windows environment (operating motif, for example). The tool is started 


by any Unix program-execution procedure, but input and output may not be redirected. 
E. EXTENDED EXAMPLE 


1. Sample Application 
The package TASK_PACKAGE was created as part of an earlier class 


programming project. This package just one of several packages created for a class project. 


The overall objective of this project was to read in a file containing initial information about 
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a spaceship. The information included location in three-dimensional space, speed in each 
of the three directions and remaining fuel. The object of the program was to be able to 
accept input from a user via the kevboard at least everv second and update the spaceships 
parameters. This file was chosen for the extended example because it was of moderate 


length, involved a number of different Ada statements in one file. 


2. User Interface 

In order to see the actual measurement results for an Ada source file performed . 

by this tool, the tool was invoked with the file EXAMPLE FILE. This file contained the 
Ada package TASK PACKAGE. (See Figure 21) This section works through an example 


task package.a 


Figure 21 Contents of EXAMPLE FILE 

of how to use the tool and how the tool works. This example will result in the generation 
of reports À through F. The tool is started as explained in section A. The user then places 
the cursor inside of the introduction panel and presses the carriage return. The information 
needed to properly run the tool is typed into the text keyin fields of panel number two. (See 
Figure 22) The tool needs this information in order to know the correct input and output 
files to open and create respectively. In addition, the name of the report and person 
requesting report are entered. The next step is to choose the report(s) the tool are to 
generate. (See Figure 23) Report A is already marked so no further action is required. For 
reports B through F the corresponding checkbox must be marked by placing the cursor over 
the checkbox and/or label for reports B through F and press the left mouse button. Since 
report F has been chosen, the next step is to place the cursor over the push-button Specify 
Custom report. This action will cause panel number two to disappear and activate panel 
number three. 

The changes for panel three include marking all of the radio-buttons for the 


attribute statement type values as included and selecting the push-button generate report. 
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Report Name: Thesis example 


Requestor Name: Kevin J. Walsh 


Output File Name: 










Figure 22 Example of text kevin fields 


Керегі Туре 


W A: Basic W D: Reuse Measurement 
MB: Project Tracking W E: Project Analysis (C+D) 


W C Project Analysis E F: Custom Report 





Figure 23 Example of marked checkboxs for selecting reports A - 


(See Figure 24) Marking all of the radio-buttons as included customizes report F to 
measure all lines of the input Ada source file as one of the eight possible statement tvpe 
values. When the push-button generate report is selected, panel number three will disappear 
and the generate report panel appears. Since no mistakes have been made, the next step is 


to select the push-button generate report. The generate report panel will disappear. 


1. Executables: Ф Includes Ó Excludes 
2. Nonexecutables: 
Declarations $ Includes Q Excludes 
Compiler Directives $ Includes O Excludes 
Comments 


On their own m $ Includes Q Excludes 
With Source Code [5 | Ф Includes <) Excludes 


Banners/ non blank 6 | @ Includes <> Excludes 
Blank (empty) comments $ Includes Q Excludes 


. Blank lines 4 Includes > Excludes 





Figure 24 Example of customizing report F 


The user interface portion of the tool is now complete. Control of the tool now 
passes over to the parser section. The file list file name entered in panel two is opened to 
read the name(s) of the Ada source file(s). In this example, the file task package.a is 


opened and the parser starts to work. To explain how the parser section of the tool works, 
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ап example of five of the possible values of the attribute 'statement tvpe' are discussed in 


the following paragraphs. 


3. Statement Processing 

The flexibility of the Ada programing language made it necessary to create 
several variables that this tool and in particular the parser uses to recognize the various 
values of the attribute 'statement type'. The Ada language allows more than one statement 
type on a line and allows for executable statements, declarations and compiler directives to 
extend over more than one line. To account for this, the parser needs to mark the start and 
end of executable statements, declarations and compiler directives; and also to track when 
either an executable statement or declaration or compiler directive extends beyond one line. 
The variables are outlined by statement type and function in the figure below. (See Figure 
25) The variables used for compiler directives is included in Figure 25, even though the 
extended example does not include an example of a compiler directives, the function and 
actions are similar to executable and declaration statements. The code used for the extended 


example is in Figure 26. 


Executable exec_ start exec_end exec_level 


Compiler Direc- pragma_level 
tives 


Figure 25 Variables used during parsing of source files 
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a. Executable Statements 
The parser processes the Ada source sequentially, reading in tokens via the 
lexical analyzer. When the parser recognizes the keyword ‘select’ as starting an executable 
statement, exec. start is set to true (See bubble 1 in Figure 26). When the lexical analyzer 


reaches the end-of-line marker and the procedure add to. array is called. 
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Once inside add to arrav, the values of exec start and exec end are 
evaluated to determine if the variable exec. level needs to be increased or decreased. In this 
case, the variable exec level is increased. The next check made is to determine if this line 
of code is either a comment on its own line, a banner comment, an emptv comment or a 
blank line. For this line, all of these cases fail. 

The next part of the code checks from the highest to the lowest precedence 
statement tvpe. In this case, the execution statement precedence is the highest, so the loop 
is traversed only once. Since the exec. start flag is true, the current. settings.fist attribute is | 
set to executable. Now the line is ready to be added to all applicable arrays. 

The procedure determine which array is called with the variable 
current settings. This procedure will add this line to all applicable arrays as long as all five 
values of the variable current settings are valid for each report requested. In this case, all 
six reports have been requested and the values for the variable current, settings are valid for 
each report. The corresponding entry in the arrays for each report is increased by one. Once 
the arrays are modified control is passed back to the parser. 

For the second through the fourth line of this executable code, the variable 
exec level is greater than zero and the variables exec. start and exec end are false. The 
lexical analyzer reaches the end-of-line marker and checks the status of the flag settings. 
Since the variable exec level is greater than zero, then the variable exec. start is set to true. 
In this situation, the variable current, settings.first. attribute is again set to executable, and 
then processed as the first statement. 

At the beginning of the last executable line is this example, exec. level is 
greater then zero. When the parser reaches the 'end select', the end of the executable 
statement recognized and the flag exec end is set to true. Before the flags array is checked, 
the variable exec, start is set to true because of the fact that exec. level was greater than 
zero. Now when the flags array is checked, both of the variables exec. start and exec. end 
are true. The variable current settings.first, attribute 1s assigned the value of executable, 


and processed as were the preceding executable statements. 
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(3)- Task allows the user to input data to the program. 
1 -- Task will verify input to ensure that input is valid 


task body KEYREAD is 


CHARACTER INPUT : ROCKET CONTROL INPUT; (2) 
CHARACTER IO : character 

DONE : boolean :z FALSE; 

TEST : natural; 


O” 


select 

accept start; 
or 

terminate; 
end select; 





Figure Sample input code 

For the last executable line in this example, the variable exec_level and 
exec_end are both set to true. When the lexical analyzer reaches the end of the line marker, 
the flags_array is checked. With the executable statements having the highest precedence, 
they are checked first. Both of the flags are set to true, which means that at least one 
executable statement either started and finished on this line or an executable statement was 
finished on this line. In this case, it was the later of the two. The variable 
current_settings.first attribute is assigned the value of executable. Then the variable 
current_settings is checked for each report. In this case, for all reports, the current_settings 


are valid and each report count_array is incremented by one. 


b. Declaration Statements 
When the parser recognizes the identifier 'character input' as the start of a 
declaration statement, the variable dec start is set to true (See bubble 2 of Figure 26). When 
the parser reaches the semicolon, it recognizes the end of the declaration statement and sets 


the variable dec end to true. In this case, there are no further statement types and the end- 


of-line marker is reached in the lexical analyzer. At this point the procedure add to array 
is called and is processed as discussed above. In this example, all four declaration 


statements are parsed and counted in the same manner as the first statement. 


c. Comments on Own Line 
Unlike executable statements, declarations and compiler directives, all 
comments and blank lines are handled directly from the lexical analyzer. When the lexical 
analyzer recognizes a comment on a line by itself, (See bubble 3 in Figure 26), a comment . 
flag is set to true, the procedure determine type comment is called first and then the 
procedure add to. array is called. The lexical analyzer recognizes a comment on a line by 
itself using the following rules: 


¢ Zero or more spaces or tabs between the start of line marker and two 
hyphens. 


e Any combination of one or more characters between the two hyphens and 
the end of line marker. 


The procedure determine_type_comment is passed the length of the current 
line, the third character the line and the string of characters from one to the current line 
length. The main purpose of determine_type_comment is to see if the current comment 
being parsed is either a regular comment on a line by itself or a banner comment. The 
actions taken for banner comments are discussed below. In this case, the comment is not a 
banner comment. 

Once inside add to. array, the first check that is applicable for comments is 
determining if the current comment is a full line of code. This is true for this case. The 
current settings.first attribute will be set to comments on own line and the procedure 
determine which array will be called. As discussed earlier, the procedure 
determine which array will check all of the five fields of the variable current, settings and 
increase each array by one when no discrepancies are found. In this case, only the arrays 
for reports C, E and F are incremented. They are the only reports that have comments on 


own line marked as included. 
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d. Banner Comments 
А banner comment is a line of symbols used to visually separate blocks of 
comments or blocks of source code. (See bubble 4 in Figure 26) The actions taken for 
banner comments are similar to regular comments except as noted here. Inside of the lexical 
analyzer there are two places where a banner comment may be recognized. The first rule is 
the same rule discussed above for comments. The second rule that looks for a banner 
comment made up of just hyphens. The rule used is as follows: 


e Between the start of line marker and the first three hyphens, there can only 
be zero or more blanks and or tabs. 


* Following the first three hyphens there can be zero or more hyphens. 


e Between the hyphens and the end of line marker there can only be zero or 
more blanks and or tabs. 


In the first case the procedure determine_type_comment is called. The 
comment is then parsed looking for a repetition of the third through the sixth character. The 
third through sixth character needs to repeated at least four times to count the comment as 
a banner comment. If the comment meets the criteria, then the start and stop flags for banner 
comments are set to true. If the comment does not meet the criteria then the start and stop 
flags for a comment on a line by itself are set to true. The procedure add_to_array is called 


next. The actions taken are similar to those discussed above. 


e. Blank Lines 

When the lexical analyzer recognizes a blank line (see bubble 5 in Figure 26) 
the blank_line flag is set to true and the procedure add_to_array is called. In this example, 
for any of the blank lines, the start and end flags for blank lines will be set to true. 

Once inside add_to_array, the first check that is applicable for blank lines is 
determining if line of code in question is a full line of code. This is true for this example. 
The current_settings.first_attribute will be set to blank_lines and the procedure 
determine_which_array will be called. As discussed earlier, the procedure 


determine_which_array will check all of the five fields of the variable current_settings and 
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increase the corresponding entry of each array by one if no discrepancies are found. In this 
case, this line will only be added to report F. Reports À through E do not have blank lines 


marked as included, therefore their arrays are not increased. 


f. OUTPUT 

After the source files have been parsed and measurements collected, the data 
must be presented in a way that can be read and understood by the people who request the 
measurements. For the example of using task, packag.a as the Ada source files, a copy of | 
each possible report was requested and generated. The different reports will show how 
using different rules can result in different but correct results. 

For brevity, only parts of each report are shown. The complete listing of each 
report are included in Appendix C. The file task package.a was processed by the 
Automated Ada Physical Source Line Counter producing reports À through F. (See Figure 
27) (See Figure 28) (See Figure 29) (See Figure 30) (See Figure 31) (See Figure 32) To 
compare the results of this tool, the Unix utility wc [SUN 90] was also ran on the file 
task package.a, which calculated a total of 284 lines for the file. Reports A through the F 
also report the number of lines, but also provide additional information as detailed in the 
SEI Framework for Size Measurement. [SEI-B 92] 

Report À is the tools basic definition for counting physical source lines of 
code. Report À details the total number of lines and individual totals for each value marked 
as included. Report A measures all noncomment and nonblank physical source line. (See 
Figure 27) Report A measured a total of 193 lines of physical source lines of code. 

Report B is an example of a report that can be used for project tracking. The 
results from this report can be used to track development status. Report B measures the total 
number of lines, individual totals for values marked as included and a two-dimensional 
array consisting of the attributes development status and how produced. (See Figure 28) 
This report will also count any removed code if annotated with a special comment. Report 


B measured a total of 193 physical source lines of code. 
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КЕРОКТ А 


Report Name: Thesis example 

File List used: example 

Requested bv: Kevin J. Walsh 
Measured as: Phvsical source lines 


Delivered as: Delivered as source 


Counted: 193 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 
When a line or statement contains more than 


one type, classify it as the type with the 
highest precedence. 


] Executables Precedence => 1 ХХХХ 
2 Nonexecutables 

3 Declarations 2 XXXX 
4 Compiler Directives 3 XXXX 
5 Comments 

6 On their own lines 

7 On lines with source code 

8 Banners and nonblank spacers 

9 Blank (emptv) comments 
10 Blank lines 





Figure 27 Partial output of Report A 
Report C is an example of a report that can be used for project analysis. This 
report would usually be requested only at the end of a project. The results would be used to 
provide for better estimates of future projects. Report C measures the total number of lines, 


individual totals for all values marked as included and a two-dimensional array consisting 
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REPORT B 


Report Name: Thesis example 
File List used: example 
Requested bv: Kevin J. Walsh 


Measured as: Phvsical source lines 
Delivered as: Delivered as source 


Counted: 193 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 

When a line or statement contains more than 
one type, classify it as the type with the 
highest precedence. 


] Executables Precedence => 1 ХХХХ 
2 Nonexecutables 

3 Declarations 

4 Compiler Directives 

5 Comments 

6 On their own lines 

7 On lines with source code 

8 Banners and nonblank spacers 

9 Blank (emptv) comments 

10 Blank lines 





Figure 28 Partial output of Report B 
cf the attributes statement type and how produced. Report C measured a total of 240 
physical source lines. 
Report D is an example of a report used for reuse measurement. The results 
of this report can be used to evaluate the amount of software reuse. Report D measures the 


total number of lines of lines, individual totals for all values marked as included and a two- 
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REPORT C 


Report Name: Thesis example 


File List used: example 
Requested bv: Kevin J. Walsh 


Measured as: Phvsical source lines 
Delivered as: Delivered as source 


Counted: 240 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 

When a line or statement contains more than 
one type, classify it as the type with the 
highest precedence. 


1 ЕхесшаМев  Precedeiice -» 1 XXXX 
2 Nonexecutables 

3 Declarations 2 

4 Compiler Directives 3 

5 Comments 

6 On their own lines 4 

7 On lines with source code 5 

8 Banners and nonblank spacers 6 

9 Blank (emptv) comments 7 

10 Blank lines 8 





Figure 29 Partial output of Report C 
dimensional arrav consisting of the attributes how produced and origin. For this example 
file, report D measured a total of 193 lines of phvsical source lines of code. 
Report E is an example of the combination of two previous report 
specifications. Report E is also used for project analvsis. This report would be requested at 


the end of a project. The results would then be used to better estimates for future projects. 
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REPORT D 


Report Name: Thesis example 


File List used: example 
Requested by: Kevin J. Walsh 


Measured as: Physical source lines 
Delivered as: Delivered as source 


Counted: 193 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 

When a line or statement contains more than 
one type, classify it as the type with the 
highest precedence. 


] Executables Ргеседепсе => 1 АХХХ 
2 Nonexecutables 

3 Declarations XXXX 
4 Compiler Directives 

5 Comments 

6 On their own lines 

7 On lines with source code 

8 Banners and nonblank spacers 

9 Blank (empty) comments 

10 Blank lines 





Figure 30 Partial output of Report D 
Report E measures the total number of lines, individual totals for all values marked as true 
and a three-dimensional array consisting of the three attributes how produced, statement 


type and origin. For this example file, report E measured a total of 240 physical source lines 


of code. 
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КЕРОКТЕ 


Report Name: Thesis example 


File List used: example 
Requested bv: Kevin J. Walsh 


Measured as: Phvsical source lines 
Delivered as: Delivered as source 


Counted: 240 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 
When a line or statement contains more than 
one type, classify it as the type with the 


highest precedence. 

] Executables Precedence => 1 ХХХХ 157 
2 Nonexecutables 

3 Declarations 2 XXXX 36 
4 Compiler Directives 3 ХХХХ 0 
5 Comments 

6 On their own lines 4 ХХХХ 47 
7 On lines with source code 5 XXXX 0 
8 Banners and nonblank spacers 6 XXXX 0 
9 Blank (empty) comments i XXXX 0 
10 Blank lines 8 XXXX 0 


. Figure 31 Partial output of Report E 
Report F is a user. defined report. The user can change anv of the values for 
each of the five attributes supported from included to excluded or vice versa. In addition, 


the user can request anv combination of two, three, four and five dimensional arravs. 
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However, anv combination of four or five dimensional arravs (all five attributes) will be 
reported as ten three dimensional reports. In this example report F measures the total lines, 
individual totals for all values marked as included. In contrast to report A that measures 
only noncomment and nonblank lines, report F measures all physical source lines of code. 
For this example, report F measures a total of 284 physical lines of code. This is the same 
result as the Unix wc utility. However, report F gives the reader more information than just 


the total number of lines. 


F. SUMMARY 


In summary, this chapter has discussed the tool requirements, tool limitations, 
command line invocation, an extended example and reports generated from the extended 


example. 


DS 


КЕРОКТЕ 


Report Name: Thesis example 


File List used: example 
Requested bv: Kevin J. Walsh 


Measured as: Phvsical source lines 
Delivered as: Delivered as source 


Counted: 284 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement tvpe 

When a line or statement contains more than 
one type, classify it as the type with the 
highest precedence. 


] Executables Precedence => 1 ХХХХ 
2 Nonexecutables 

3 Declarations 2 XXXX 
4 Compiler Directives 3 XXXX 
5 Comments 

6 On their own lines A XXXX 
7 On lines with source code 5 XXXX 
8 Banners and nonblank spacers 6 ХХХХ 
9 Blank (empty) comments 7 ХХХХ 
10 Blank lines 8 ХХХХ 





Figure 32 Partial output of Report F 
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V. SUMMARX AND CONCLUSIONS 


There were two areas addressed by this research, the first was to look at the possibility 
of automating the SEI Framework for Size Measurement. The second was to look at how 
to provide the flexibility outlined in the SEI Framework for Size Measurement. This 
chapter provides the answers to these questions. Section A summarizes the significant 


results of this research. Section B concludes by giving suggestions for future research. 


A. RESEARCH SUMMARY 


The research studied the SEI Framework and developed a tool to implement attributes 
of the framework. It was determined that a prototype tool could be implemented supporting 
the following attributes statement type; how produced; origin; usage and development 
status. The user-interface was designed to mimic the SEI Checklist for each supported 
attribute. The user-interface calls a parser that performs the measurements according to 
user-defined requests. Once the parser calculates the counts for the source, the final step is 
to generate the user-requested reports. 

After performing the development, testing and evaluation of the various features of 
this project, we have reached the following conclusions: 

The first result of this research demonstrated that the SEI Framework for Size 
Measurements can be implemented in a tool using the Ada programing language. The tool 
consists of programed Ada code and generated Ada code. The generated Ada code was 
produced using TAE, Aflex and Ayacc. TAE provides the user-interface; Aflex produces a 
lexical analyzer; and Ayacc produces a parser. The programmed Ada code was used to 
integrate the three tools and to produce a report generation capability. The result is a tool 
that implements a major portion of the SEI Framework in Ada, with minimal execution 
COSt. 

The second outcome of this study demonstrated that the framework's flexibility can 


be maintained and implemented using source flags. The tool uses those flags to capture the 
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flexibility of SEI's framework checklist and generate multiple reports during one pass of 
the Ada source files. Another mechanism employed the use of global variables that are used 
during the parsing of the Ada code. These global variables are declared for each report to 


separate the different values the supported attributes may have. 


B. RECOMMENDATIONS 


Program managers and software developers should use tools such as the one 
developed in this research to track the entire software project process and compare the 
current program state against the estimated or planned program state at predetermined 
points in time. The results of the tool provide clear and consistent measurement results 
thereby allowing for more accurate decision making. 

Since this work is among the first to use the SEI’s framework, there are a large number 
of areas where it can be expanded with future studies. Some of these include: 

The entire set of attributes outlined in the SEI Framework for Size Measurement is not 
implemented in this tool. The functionality and replication attributes are not supported in 
this tool. The attribute functionality identifies the number of lines of code that are a 
functional part of the code and the number of lines of code that are not functional part of 
the code. Whereas the attribute replication describes how to account for a software project’s 
master source statements from its copies. To implement both of these attributes would 
require research into how to integrate existing tools, such as the Unix diff, or to build other 
tools. 

The Automated Ada Physical Source Line Counter only measures physical source 
lines of code. The SEI framework also allows for measurement of logical source 
Statements. To implement logical source measures research is needed to define exact and 
complete rules for identifying the beginnings and endings for all possible statement types. 

The current tool is implemented for the Ada language. The tool can be extended to 
support other programming languages, such as C and C++. Development of an appropriate 


C parser would be needed along with interaction into the tool itself and its user-interface. 
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Currentiv the SEI framework does not involve measurements in areas outside of size, 
effort and qualitv. Research extending the SEI framework to other metric principles such 
as complexity is needed. 

Finally, this tool provides a clear and consistent size measurement of Ada source files. 
The result of this and future research will improve the ability of software developers to 
accurately quantify and measure software projects. The metrics produced by these efforts 
will improve software productivity and quality. These metrics will provide additional tools 
to the software developer to ensure that projects meet the time and cost constraints. This 
research has established some initial observations and steps of how to automate the SEI 


Framework for Size Measurement, but more questions are left unanswered. 
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APPENDIX A USER MANUAL 


A. REQUIREMENTS 


1. Hardware 
The Automated Ada Phvsical Source Line Counter requires the use of an Unix 
workstation. The tool has successfullv run on several SPARC compliant computers: 
Solbourne Computer S4000, Sun SPARC station 10, Sun SPARC station 1 and Sun 
SPARC station 2. 


2. Software 
The Automated Ada Physical Source Line Counter requires the use of 'X- 


windows" to operate. This tool has worked under Openwindows and Motif. 


3. Input 

The Automated Ada Physical Source Line Counter requires the entering of 
several pieces of information to run correctly. The information that is required are the input 
filename, output filename, name of person requesting report and name of the report. The 
first two items are required information. The second two pieces of information are not 
required, but suggested. 

Special comments are used to distinguish between the different values of the four 
attributes how produced, origin, usage and development status. (See Figure A-1) These 
special comments must be entered by the code maintainer manually. These special 
comments flags are recognized by the lexical analyzer and change the second through the 
fifth field of the variable current, settings. All special comments are in the form of ''— 
* «text^". The double hyphens identify the line as a comment. The asterisk is included for 
compatibility with other tools such as Adadl. [SSD 90] The text corresponds to the unique 
values of the four attributes how produced, origin, usage and development status. The lines 


that the special comments are on are not included in the measurement. 
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Attribute 


--*_ Programmed Statements prepared by programmers that are 
not modifications of pre-existing statements 

--* Generated Created by using tools to produce compilable 
Statements automatically 


--* Converted Pre-existing statements that are translated 
automatically or with minor human interven- 
tion 


Those statements taken verbatim from other 


sources and used as part of the master source 
code for the new product 


--* Modified 


Modifications are adaptations made to pre- 
existing statements so that they can be used 
in a new product, build, or release 









All statements that are removed from prior 
code when that code is copied or modified for 
use in a new or revised product 


IMMA. 


--* Previous version A previous version, build or release 


--* COTS Commercial off the shelf software 


-* GFS Government furnished software 


--* Removed 





--* Another product Another product 


--* VSL spt library pacer language support library 
unmodi 


--* VS_OS_or_utility A vendor-supplied operating system or utility 
(unmodified) 


A local or modified language support library 
or operating system 


--* A modified, spt lib 


--* Other comm lib Other commercial library 


--* Reuse library A reuse library (software designed for reuse) 


* Other Software component Other software component or library 


Figure A-1 Special Comments 


59 








All code incorporated into the primary prod- 
uct and all code delivered with or as part of 

the product that is developed and tested as if 
it were to operate in the primary product 


All code that is produced or delivered by the 
project that is not an integral part of the pri- 
mary product 


--* Estimated or planned The total number of lines estimated for a par- 
ticular software module 


Appropriate stage of 2167 development 


Figure À-1 Special Commeiits 






— Part of product 













--* External to product 












4. Legal Ada Syntax 
The Automated Ada Physical Source Line Counter will only work with 
syntactically correct Ada source files. In some instances, generated code will have 
embedded special characters, such as (AL, page breaks for printing) that will cause a syntax 
error in the parser. This particular error does not cause the tool to terminate, but there may 
be some embedded characters that do. This prototype tool was built using version 1.0 of 
Ayacc [TAB 88]. A newer and improved version was released after the tool was built and 


offers some improvement in acceptance of Ada source files. 
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B. LIMITATIONS 


1. Package Conflicts 


The parser generated by the two tools Ayacc uses a grammar supplied be the user. 
[TAB 88] For this tool, the grammar was the one supplied with Ayacc, but modified for 
purposes of the tool. For the situation of recognizing either a package spec, a package body 
or a generic package requires that for the proper counting of lines, the entire package spec, 
package declaration or generic package declaration must be one line or the final count may | 


be incorrect. 


gen inst : 
PACKAGE TOKEN IDENTIFIER IS. TOKEN 
NEW TOKEN expanded n .gen act. part. ';' 


PROCEDURE. ident IS 

NEW TOKEN expanded n .gen act. part. 4” 
FUNCTION TOKEN designator IS TOKEN 
NEW TOKEN expanded n .gen act part. *;' ; 





Figure A-2 Example of Ada.y input file to Ayacc 


2. Coding Style 


The Automated Ada Physical Source Line Counter counts physical source lines 
of code and is based upon the SEI framework on size. [SEI-B 92] Different coding styles 
can and will result in different results. For example, lets compare a short example of the 
same code, but different writing styles. (See Figure A-3) The total number of non- 
comment, non-blank lines for version one would be two. However, the total for non- 
comment, non-blank lines for the same exact code in version two results in a total of five. 
The same code, only different coding styles. The use of a pretty printer on the Ada source 
files prior to using the Automated Ada Physical Source Line Counter will ensure consistent 


results for reports A through E. 
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Version One 


procedure EXAMPLE, ONE is TEMP. INT : integer: 0; begin 


TEMP INT :- TEMP INT 4 1; end EXAMPLE ONE; 


Version Two 
procedure EXAMPLE TWO is 
TEMP INT : integer:- 0; 
begin 
TEMP INT :- TEMP INT + 1; 


end EXAMPLE TWO; 





Figure A-3 Example of two different coding styles 
C. COMMAND LINE INVOCATION 


To start the Automated Ada Physica! Source Line Counter, the user must either be in 
the directory that contains the tool or have the directory containing the Automated Ada 
Physical Source Line Counter in a valid path statement. In addition, the user must be 
running in an X-windows environment (operating motif for example) To invoke the tool, 
any Unix program execution method may be employed, but input and output may not be 


redirected. 


D. USER INTERFACE 


The user interface provides a window type access that is an easy-to-use method to 
request one or several pre-defined reports or to create an individualized report. Each of the 
supported attributes is contained in its own panel or screen. The user interface is made up 
of eleven panels. The panels are made up of selection items, text items, text and integer 
keyin items and labels. There are three types of selection items. The types are push-button, 
checkboxes and radio buttons.Each of the panels have default settings for push-buttons, 


radio-buttons, integer keyin items and checkboxes. Each default selection is highlighted. 
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To change or add too the default selection, the user must use the left mouse button. Several 
of the figures are labeled one, two or three. The items with a one label means that those 
items are radio buttons. Items with a label two are push-buttons. Finallv, the items labeled 


three are kevin items. 


1. Push-buttons 

The push-button is used to connect one panel to another. The push-buttons are 
shaped like a rectangle. (See Figure A-4) The default push-button can be selected when the 
return kev is pressed while the cursor is in that panel.The push-buttons for each panel are 
displaved along the bottom. Two of these push-buttons are common to each panel and will 
be discussed separately from each particular panel. The first push-button is the “Quit” 
button. The other push-button is the “Help” button. When the quit button is pressed, the quit 
panel is displayed over the top of the current panel. The quit panel gives the user the choice 
to quit the application, or to go back to the panel that they were just on. When the help 
button is pressed, a help panel with information particular to that panel will be displayed. 
When the user is finished with the help screen, the help screen will disappear and the panel 


that initiated the help screen will again be the active screen. 





Figure A-4 Example of Push-buttons 
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2. Checkboxs 
The checkboxes are used whenever the user has the choice to pick more than one 
item. The checkboxes are shaped like a square. For example the user can pick just one 


report, say À, an or the user can pick all six reports, A through F. 


ША: Bar ; ] D: Reure Mearurement 


O B: Project Tracking [] E: Project Analysis (C«D) 








О C Project Ал е L] F: (nam Report 


Figure A-5 Available Report Names 





3. Radio-buttons 
The radio buttons are used when the user can pick only one of the items in the 
group. The radio-buttons are shaped like a diamond. At least one item will always be 
picked. For example, if the user picks the value blank lines to be included in report F, then 
the radio button for "Includes" will be highlighted. The button for “Excludes” will change 


from highlighted to blank and vice versa. 


4. Labels and Text/Integer Keyin items 
Labels are used to identify the two types of keyin items. (See Figure A-6) The 
labels are place holders and have no action associated with them. The text keyin items will 
accept any input from the keyboard. However, if this information is the filelist, then the tool 
will terminate if a correct file is not found. The integer keyin fields are used for the setting 
of the precedence levels for report F. The precedence levels for reports A through E are 


preset and can only be changed by going into the source code and manually changing the 


values. For the integer kevin fields, TAE will check to ensure that the value is within the 
prescribe range, which is from one through and including eight. However, TAE does not 


check to see if duplicate values are entered. 


Kevin 
Fields 





Figure A-6 Text Keyin fields and labels 


E. INTRODUCTORY PANEL 


The first panel is an introduction panel. The introduction panel contains the name of 
the tool, name of the author and three push-buttons displayed along the bottom. Beside the 
quit and help push-buttons, the other push-button is the “Next screen” button. The next 
screen button will make the introduction panel disappear, and bring up the second panel. 


The next screen push-button is the default push-button for the introduction panel. 


F. INPUT PANEL 


The second panel is where the user will enter the mandatory information for the tool 
to operate. The second panel contains four string keyin areas, a group of six checkboxes 
and four push-buttons. The string keyin areas are for the report name, file list, requestor 
name and output file name, respectively. The user enters the appropriate information by 
placing the cursor over the window and type in the appropriate information. Six checkboxes 


represent six different reports that can be generated by this tool. Any one or all of the 
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checkboxes may be selected. Report A is the default selection. In addition to the quit and 
help push-button, the second panel also has displayed along the bottom a "Generate 
Report” push-button and a “Specify Custom Report” push-button. When the generate 
report button is pressed, the second panel will disappear and the generate report panel will 
appear on the screen. When the specify custom report push-button is selected, the second 
panel disappears, and activates the third panel. The generate report push-button is the 


default push-button for the second panel. 
G. ATTRIBUTE PANELS 


The third through the seventh panels contain the attributes of the SEI checklist, one 
attribute per panel. (See Figure A-7) (See Figure A-8) (See Figure A-9) (See Figure A- 
10) (See Figure A-11) There are five push-buttons on each of these panels. The first two 
push-buttons are the quit and help buttons. Another push-button is the "Previous Screen" 
push-button. When the previous screen button is pressed, the current panel disappears, and 
activates the previous panel. The next push-button is labeled “Next Screen”. When pressed, 
the current panel will disappear, activating the next panel in the sequence. The last push- 
button is the generate report button. When this button is pressed it will make the current 
panel disappear and activate the generate report panel. The generate report panel is the 
default button. . 

Along the top right corner in panels three through seven are two radio-buttons 
displayed, one above the other. These radio-buttons allow the user to specify that in 
addition to the individual totals, this attribute will be included in a multi-dimension array 
at the end of the normal report format. When this choice 15 selected, all of the attributes 
selected as such (must have at least two) will be displayed as two or three dimensional 
arrays at the end of report F. When more than three attributes are selected, then all 
combinations of N choose three will be displayed at the end of report F, where N will be 
either four or five. The other major part of panels three through seven are the radio-buttons 


that correspond to the values for each attribute. All of the radio-buttons are the same, either 
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араан mhor deea n e E E Ea 
E НЫ (ef Report Generation Panel Number 1:5: Ше 


$ Definition 
Statement Type Order of Precedence Q Data Array 





Сә) 


1. Executables: 

2. Nonexecutables: 

3. Declarations 
Compiler Directives 


$ Includes Q Excludes 


€ Includes © Excludes 
4 € Includes <> Excludes 
5. Comments 

6. On their own © Includes @ Excludes 
7 Q Includes Excludes 
8.  Banners/ non blank © Includes Excludes 
9. — Blank (empty) comments © Includes @ Excludes 


10. Blank lines } Includes @ Excludes 


° 


With Source Code 


CIS OO O 





x Quit application x IEC | 
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Figure A-7 Statement Type Panel 
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€ Definition 
Q Data Array 





How Produced 








€ Includes Q9 Excludes 
4 Includes <> Excludes 
@ Includes <> Excludes 
€ Includes < Excludes 
@ Includes Q Excludes 

Includes @ Excludes 


1. Programmed 

2. Generated with source code generators 
3. Converted with automated translators 
4, Copied or reused without change 

5. Modified 

6. Removed 












Generate Report | 








00000: 00 000000 0 0 506 0 осо фе офоофо во оо вос ооо во о соо с восоо юз соо фосо оо с фсе ооо фот фо вос ооо о оо ооо ооо фо сфос фо о фо с фо совою фо вос о фо вофо с ффофозофооовофо софос Фобос со фо с фос ово сово 


Figure A-8 How Produced Panel 
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© 


€ Definition 
Q Data Array 





1. New work: no prior existence @ Includes Ó Excludes 
2. Prior work: taken or adapted from 

3. A prevous version, build or release $ Includes Q Excludes 
4. Commercial off the shelf software (COTS) @ Includes © Excludes 
5. Govermment, furnished software (GF) € Includes © Excludes 
6. Another product @ Includes © Excludes 
7. A vendor supplied language support library © Includes @ Excludes 
8. A vendor supplied operating system © Includes % Excludes 
9. A modified or local language spt library or OS Ф Includes } Excludes 
10. A commercial library @ Includes Q Excludes 
11. A reuse library (software designed for reuse) @ Includes } Excludes 
12. Another software component or library @ Includes © Excludes 





Ф 


рае фаир виалы ееалала аа ааа еееоа ааа аа ааееек аз а анна аел ааанталаа а оаа н наа а ано рана вана но нанео аав аан нн аеееаа ааа наана ева аа ан ваа аа ее ааш аваа аа а е ета наа 0 0 ане ан ааа 0а ан ае 





Figure A-9 Origin Panel 
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€ Definition 
ые Q Data Array 


1. In or as part of the primary product @ Includes } Excludes 





2. External to or in support of the primary © Includes @ Excludes 
Delivery Options 


product 
© Delivered as source 


Q Delivered in compiled or executable form, but not as source 
© Under configuration control 

Q Not under configuration control 

© Don’t care 












9 


ШІ 





Figure A-10 Usage and Deliverv Options Panel 


70 


О: 
а SAR 
АЯ ids ғ 2 


€ Definition 


Development status 
Q Data Array 


1. Estimated or Planned © Includes @ Excludes 
2. Designed © Includes @ Excludes 
3. Coded, under configuration control © Includes @ Excludes 
4. Unit tests completed © Includes @ Excludes 
5. Integrated into components © Includes @ Excludes 
6. Test readiness review completed © Includes @ Excludes 


7. Software (CSCI) tests completed © Includes @ Excludes 
8. System tests completed @ Includes Q Excludes 


B 
Quit application |Previous Sereen КЕГІ 





Figure A-11 Development Status Panel 
the include button is highlighted or the exclude button is highlighted. Panel three also has 


eight integer kevin windows. Each integer kevin window corresponds to one of the values 


of the attribute statement tvpe. TAE will ensure that the precedence entered is within the 
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range of one through eight. However, if the user does not ensure that each precedence value 


is unique, the results for report F may not be accurate. 
H. CLARIFICATIONS (GENERAL and Ada) PANELS 


The eight and ninth panels are for the general and Ada specific clarifications panels 
respectively. (See Figure A-12) (See Figure A-13) These two panels are similar to panel 
three, the difference being the number of radio-buttons. There are a total of thirteen general 
clarifications and six Ada specific clarifications. Each clarification is associated with one 


of the values of the attribute statement type. 


I. GENERATE REPORT PANEL 


The tenth panel is the generate report panel. (See Figure A-14) This panel has two 
push-buttons displayed along the bottom of the panel, they are labeled cancel and generate 
report. The generate report is the default button. The cancel button will make the generate 
report panel disappear. The user must then use the mouse to click on the icon of the 
previous panel. In addition to the push-buttons, this panel displays a text message 


explaining the different options available to the user. 


J. QUIT PANEL 


The last panel is the quit panel. This panel also has two push-buttons displayed along 
the bottom of the panel, they are labeled quit and cancel. (See Figure A-15) The quit button 
is the default button. When the quit button is selected, the panel will disappear and the tool 
will terminate. When the cancel button is selected, the quit panel disappears leaving the 
previous panel as the active panel. In addition to the push-buttons, there is a text area that 


displays the options to the user. This is provided in lieu of a help button. 


a2 








Listed elements are 


Clarifications (general) | 
assigned to statement type 


1. Null, continues, and no-ops 


ф Includes Q Excludes 


= 





2. Empty stmts (eg, 5) ПИ © Includes @ Excludes 
3. Statements that instaniate generics @ Includes Excludes 
4, Begin...end and (...) pairs used as 

executable statements П | $ Includes Q Excludes 
5. Begin...end and {...} pairs that 

delimit (sub)program bodies @ Includes © Excludes 
6. Logical expressions used as test conditions | [1 | Ó Includes 49 Excludes 
7. Expression evalutions used as 

subprogram arguments TE © Includes @ Excludes 
8. End symbols that terminate (3) 

executable statements НЕ | @ Includes Excludes 
9, End symbols that terminate 

declarations or (sub)program bodies $ Includes } Excludes 
10. Then, else, and otherwise symbols П | @ Includes O Excludes 
11. Elsif statements П | @ Includes Excludes 
12. Keywords like procedure division, 

interface, and implementation © Includes @ Excludes 
13, Labels (branching destinations) 

on lines by thenselves па @ Includes Excludes 











© 
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Figure A-12 Clarifications (general) Panel 
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EI IT Custom Report Generation Panel Number SEEESERESERE 7772 


VAM 








Listed elements are 
Clarifications (Ada specific assigned to statement type 


|. End symbols that terminate 
declarations or (sub)program bodies 


2, Block statements (eg., begin .. end) 


3, With and use clauses 
4, When (the keyword preceding 


executable statements) 


© Includes @ Excludes 


© Includes @ Excludes 
@ Includes Q Excludes 


Фф Includes Q Excludes 


ІШ 


5, Exception (the keyword, used as a 


frame header) $ Includes) Excludes 


6. Pragmas @ Includes 0) Excludes 


(2) | 


Figure A-13 Clarifications (Ada) Panel 





LT] 
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You have pressed a "Generate Report" 
‘button in one of the panels. 


Press Generate Report to have your report 
generated. 


Press Cancel to return to the previous panel 
display. 


Figure A-14 Generate Report Panel 
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Aou have pressed the "Quit" button in one of the 
panels. 


Press the "Quit" button to exit the tool. 


Otherwise press the Cancel button to go back to 
the previous panel. 





Figure A-15 Quit Panel 
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APPENDIX B. SOURCE CODE 
ADA.Y 


9o token L o> 16 b e € 44 М? 6.9 6,9 
> . . ә 
Çotoken <‘ ‘=’ ‘>’ ‘PF 


Mtoken ARROW DOUBLE DOT DOUBLE STAR ASSIGNMENT INEQUALITY 
%token GREATER THAN OR EQUAL LESS THAN OR EQUAL 

Mtoken LEFT LABEL BRACKET RIGHT LABEL BRACKET 

%token BOX 


%token ABORT_TOKEN ABS_TOKEN ACCEPT_TOKEN ACCESS_TOKEN 
%token ALL_TOKEN AND_TOKEN ARRAY_TOKEN AT_TOKEN 


%token BEGIN_TOKEN BODY_TOKEN 
%token CASE_TOKEN CONSTANT_TOKEN 
%token DECLARE_TOKEN DELAY_TOKEN DELTA TOKEN DIGITS TOKEN DO TOKEN 


Mmtoken ELSE TOKEN ELSIF TOKEN END TOKEN ENTRY, TOKEN EXCEPTION TOKEN 
Zotoken EXIT TOKEN 


Mtoken FOR TOKEN FUNCTION TOKEN 

Mtoken GENERIC TOKEN GOTO TOKEN 

%token IF TOKEN IN TOKEN IS. TOKEN 

Mtoken LIMITED TOKEN LOOP TOKEN 

Mtoken MOD TOKEN 

Moken NEW TOKEN NOT TOKEN NULL TOKEN 

Фиокел ОЕ TOKEN OR TOKEN OTHERS TOKEN OUT TOKEN 

Mtoken PACKAGE TOKEN PRAGMA TOKEN PRIVATE TOKEN PROCEDURE TOKEN 
%token RAISE TOKEN RANGE TOKEN RECORD TOKEN REM TOKEN 
КЕМАМЕ5 ТОКЕМ 

Z%token RETURN_TOKEN REVERSE_TOKEN 


Ztoken SELECT_TOKEN SEPARATE_TOKEN SUBTYPE_TOKEN 


%token TASK TOKEN TERMINATE TOKEN THEN_TOKEN TYPE_TOKEN 
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Moken USE TOKEN 
%token WHEN_TOKEN WHILE TOKEN WITH ТОКЕМ 
%token XOR_TOKEN 


%token IDENTIFIER 
%token INTEGER_LITERAL REAL_LITERAL 


%token CHARACTER_LITERAL STRING_LITERAL 


%token ERRORI ERROR2 ERROR3 ERROR4 ERRORS ERROR6 ERROR7 ERRORS 
%token ERRORY ERROR10 ERROR11 ERROR12 ERROR13 ERROR14 ERROR15 


Zostart compilation 


| 
subtype yystype is integer; 
) 


%% 
set exec start : (FLAGS ARRAX(STMT TXPE'val(O), 1) := true; }; 
set exec end : (FLAGS ARRAXV(STMT TXPE'val(O), 2) :- true; }; 


set dec start : (FLAGS ARRAX(STMT TVPE'val(l), 1) := true; 
put (“ dec start '); ); 


set dec епа : (FLAGS ARRAY(STMT TYPE'val(1), 2) :- true; 
put (“ dec end “); }; 


count last line : { if DECLEVEL > 0 then 
DECREASE_DECLEVEL; 
end if; 
new_line; 
GLOBAL.ADD TO ARRAY; 
d 


task body or body stub : 
check task token body. token. sim n 
check task body. or body stub 


, 


check task token body token sim n : 
TASK TOKEN 
BODY TOKEN 
set, dec. start 
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sim n 
IS TOKEN 
set dec end 


. 
? 


check_task_body_or_body_stub 
SEPARATE_TOKEN 
| 
.decl part. 


check package, body or body stub : 
check package body stub common 
check. package body or stub 


> 


check_package_body_stub_common : 
PACKAGE TOKEN 
BODY_TOKEN 
set_dec_start 
sim_n 
IS TOKEN 
set dec end ; 


check package body or stub 
SEPARATE TOKEN 
| 
.decl part. 


-- Clarifications general 


-- line 1 
check null start : ( i£ COUNT. CLARIFICATION 
(GLOBAL.RECORD FLAGS F.PANEL1O.LINE 1) then 
FLAGS ARRAY (STMT TYPE 'val (0), 1) :z TRUE; 
put (“exec start”); 
else 
null; 
endif; } ; 


check null end : fif COUNT CLARIFICATION 
(GLOBAL.RECORD FLAGS F.PANELI1O.LINE 1) then 
FLAGS ARRAY (STMT TYPE'val (0), 2) : TRUE; 
put (“ exec end”); 
else 
null; 
end if; } ; 
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-- пе 2 
-- Not applicable to Ada 


— line 3 

-- expanded in-line 

-- check gen inst, start 
-- check, gen inst, end 


-- line 4 
check, begin..end start : 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS, F.PANEL 1O.LINE, 4) then 
FLAGS ARRAY (STMT TYPE 'val (0), 1) := TRUE; 
put (* exec start “%; 
else 
null; 
end if; } ; 


check begin.end end : 
( f COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELJIO.LINE 4) then 
FLAGS ARRAY (STMT TYPE 'val (0), 2) :z TRUE; 
put (* exec end “$; 
else 
null; 
end if; } ; 


check_end_block_stmt : 
END_TOKEN check_begin..end_end ; 


-- line 5 
check begin..end delinate start : 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 5) then 
FLAGS ARRAY (STMT TYPE'val (0), 1) :z TRUE; 
put (“ exec start “); 
else 
null; 
end if; } ; 


check_begin..end_delinate_end 
{ if COUNT_CLARIFICATION (GLOBAL.RECORD_FLAGS_F.PANEL10.LINE_5) then 
FLAGS_ARRAY (STMT_TYPE ’ val (0), 2) := TRUE; 
put (“ exec end “); 
else 
null; 
end if; } ; 


check_begin_stmt : 
check begin..end delinate start BEGIN_TOKEN check_begin..end_delinate_end ; 


— line 6 
— Not specific to Ada 
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— line 7 
-- Are considered part of Executable statement 


-- line 8 
check_end_exec_statement_start : 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 8) then 
FLAGS ARRAY (STMT TYPE 'val (0), 1) : TRUE; 
put (* exec start ); 
else 
null; 
end if; } ; 


check end exec statement end: : 
( i£ COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS. F.PANELIO.LINE $8) then 
FLAGS ARRAY (STMT TYPE 'val (0), 2) : TRUE; 
put (“ exec end 5; 
else 
null; 
end if; } ; 


CHECK END EXEC STMT : 
END TOKEN check end exec. statement end ; 


-- line 9 
check. end, declarations start : 
( 1 COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 9) then 
FLAGS ARRAY (STMT. TYPE'val (1), 1) : TRUE; 
put (' dec start '); 
else 
null; 
end if; ) ; 


check end declarations end  : 
( if COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE, 9) then 
FLAGS ARRAY (STMT. TYPE'val (1), 2) :z TRUE; 
put (“ dec end ''); 
else 
null; 
end if; } ; 


check end dec  : 
END TOKEN 
check end declarations end 


-- line 10 
-- check for else, then, others on line by themselves 
-- Is now tested for inside of ada lex.1 


-- line 11 
-- check for elsif on line by itself 
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-- is now tested for inside of ada. lex.1 


-- line 12 
-- Does not apply to Ada 


-- line 13 
check label start : 
{ if COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 13) then 
FLAGS. ARRAY (STMT TYPE'val (0), 1) :z TRUE; 
put (“ exec start “); 
else 
null; 
end if; } ; 


check label end : | 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI1O.LINE 13) then 
FLAGS ARRAY (STMT TYPE'val (0), 2) :z TRUE; 
put (" exec end '5; 
else 
null; 
end if; ) ; 


-- Ada specific clarifications 


-- line 1 
-- checkec in line 9 of general clarifications 


-- line 2 
-- checked in line 4 of general clarifications 


-- line 3 
check_with_and_use_start : 
{ if COUNT_CLARIFICATION (GLOBAL.RECORD_FLAGS_F.PANEL11.LINE_3) then 
FLAGS ARRAY (STMT_TYPE ’ val (1), 1) := TRUE; 
put (“ dec start “‘); 
else 
null; 
end if; ) ; 


check with and use end : 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI1.LINE 3) then 
FLAGS ARRAY (STMT TYPE'val (1), 2) := TRUE; 
ри (“ дес ела “); 
else 
null; 
end if; ) ; 


-- line 4 


check when start : 
{ £ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELII.LINE 4) then 
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FLAGS_ARRAY (STMT_TYPE’ val (0), 1) := TRUE; 
put (“ exec start “‘); 

else 
null; 

end if; ) ; 


check when end : 
( i£ COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI11.LINE 4) then 
FLAGS ARRAY (STMT. TYPE val (0), 2) :z TRUE; 
put (“ exec end “); 
else 
null; 
end if; } ; 


check_when : 
check. when start WHEN TOKEN check when end ; 


-- line 5 
-- working 
check, exception keyword, start : 
{ if COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI11.LINE 5) then 
FLAGS ARRAY (STMT. TYPE 'val (0), 1) : TRUE; 
put (“ exec start “); 
else 
null; 
end if; } ; 


check exception keyword end : 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANEL11.LINE 5) then 
FLAGS ARRAY (STMT TYPE'val (0), 2) : TRUE; 
put (" exec end “%); 
else 
null; 
end if; ) ; 


-- line 6 
check pragma start : 
( i£ COUNT. CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELII.LINE 6) then 
FLAGS ARRAY (STMT TYPE 'val (2), 1) : TRUE; 
put (' pragma start ''); 
else 
null; 
end if; ) ; 


check pragma end : 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI1.LINE 6) then 
FLAGS ARRAY (STMT TYPE'val (2), 2) :- TRUE; 
put (“ pragma end “‘); 
else 
null; 
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end if; ) ; 


-- Avacc grammer rules follow 


prag: check pragma start 
PRAGMA_TOKEN IDENTIFIER .arg_ascs ';' 
check_pragma_end ; 


--prag: PRAGMA_TOKEN IDENTIFIER .arg_ascs *;’ ; 


arg. asc 
expr 
IIDENTIFIER ARROW expr ; 


--*** Added  *** -- 
numeric literal 

: REAL . LITERAL 

I INTEGER LITERAL 


, 


basic d : 

object d set dec end 
Iset dec start tv d set dec end 
| subty d set dec end 
Isubprg d 
| pkg d 
ltask d set dec end 
| gend set dec end 
lexcptn d set dec end 
| gen inst 
| renaming d set dec end 
| number d set dec end 
| 


еттог ‘;”; 
object d : 
set dec. start idents ‘:’ subty ind. ASN enxpr. °; 
| set dec start idents '* CONSTANT TOKEN subty ind. ASN expr. *;' 
| set dec start idents ':' с ап def. ASN expr. ';' 


| set dec startidents ':' CONSTANT TOKEN c arr def. ASN ехрг. 4”; 


number d : 
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set dec start idents ':* CONSTANT TOKEN ASSIGNMENT expr ‘;’ ; 


idents : IDENTIFIER ...ident..; 


ty d : 
full ty. d 
lincomplete ty d 
Ipriv ty. d ; 


full tv d : 
TYPE TOKEN IDENTIFIER IS TOKEN tv. def '; 
| 
TXPE TOKEN IDENTIFIER discr. part IS TOKEN tv. def ';'; 


tv. def: 
enum ty  defl integer ty def 
Ireal ty defl array гу def 
Irec ty def! access ty. def 
Iderived ty def; 


subtv. d : 
set dec start SUBTYPE TOKEN IDENTIFIER IS TOKEN subty ind *;' ; 


subty. ind :ty mk .constrt. ; 


ty mk : expanded n; 


constrt : 
mg c 
Ifltg point c l fixed point c 
laggr ; 


derived ty def: NEW TOKEN subty. ind ; 


mg c : RANGE TOKEN mg ; 
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mg : 
name 
Isim expr DOUBLE DOT sim expr; 


enum ty def 
*(* enum lit. spec 
..enum, lit spec.. )'; 


enum lit spec : enum, lit ; 


enum lit : IDENTIFIER | CHARACTER LITERAL ; 


integer ty def: mg c; 


real tv def 
fltg point c | fixed point c ; 


fltg point c : 
fltg accuracy def .mg c. ; 


fltg accuracy. def : 
DIGITS TOKEN sim expr ; 


fixed, point c: 
fixed accuracy def rng c. ; 


fixed accuracy def : 
DELTA TOKEN sim expr ; 


array ty def 
uncnstrnd array. ей с ат def ; 


uncnstrnd array. def: 
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ARRAY TOKEN 'C idx subtv. def ...idx subtv. def.. 0” ОЕ ТОКЕМ 
subty ind; 


car def =: 
ARRAY TOKEN idx c OF TOKEN subty ind ; 


idx subty def : name RANGE TOKEN BOX ; 
idx c : '(' dscr. rng ...dscr mg.. *)' ; 


dscr mg: 
тё 
Iname rng. c; 


rec. tv. def: 
RECORD TOKEN 
cmpons 
CHECK END DEC RECORD TOKEN; 


—rec tv. def: 

-RECORD TOKEN 

-- cmpons 

-END TOKEN RECORD TOKEN; 


cmpons: 
..prag.. ..cmpon, d.. cmpon d ..prag.. 
l..prag.. ..cmpon, d.. variant, part ..prag.. 
| ..prag.. NULL_TOKEN ‘;’ ..prag.. ; 


cmpon_d : set_dec_start 
idents ':' cmpon. subtv. def . ASN expr. ';' set dec end ; 


cmpon subty def  : subty ind; 
discr part : 

“(С discr. spec ...discr spec.. )' ; 
discr spec : 
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idents ':' tv mk... ASN expr.; 


variant part : 
CASE TOKEN sim n IS TOKEN 
..prag.. variant ..variant.. 
CHECK END DEC CASE TOKEN *;'; 


--уапац рап: 

— CASE TOKEN sim п 15 ТОКЕМ 

--  .prag.. variant ..variant.. 

-- END TOKEN CASE ТОКЕМ“; ; 


variant : 
CHECK, WHEN choice ..or. choice.. ARROW 
cmpons ; 


--variant : 
--WHEN  TOKEN choice ..or. choice. ARROW 
-- cmpons; 


choice : sim, expr 
| name rng c 
| sim, expr DOUBLE DOT sim expr 
| OTHERS. TOKEN 
| error 


access ty def: ACCESS TOKEN subty ind ; 


incomplete ty d : 
TYPE TOKEN IDENTIFIER *;' 
| 
TYPE_TOKEN IDENTIFIER discr_part ‘;’ ; 


decl_part : 
..basic_decl_item.. 
| ..basic decl item.. body ..later. decl item.. ; 


basic. decl, item : 


basic. d 
Irep cl | use cl; 
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later decl item : body 
Isubprg d set dec end 
I pkg dset dec end 
ltask dset dec end 
I gen dset dec end 
luse cl 
| gen inst ; 


body : proper body | body. stub ; 


proper. body : 
subprg body | pkg body | task body ; 


name : sim n 
| CHARACTER LITERAL | op symbol 
lidxed cmpon 
Iselected cmpon l attribute ; 


sim, n :IDENTIFIER ; 


prefix: name ; 


idxed cmpon : 
prefix aggr ; 


selected cmpon : prefix *.' selector ; 


selector : sim n 
| CHARACTER LITERAL ! op symbol | ALL TOKEN ; 
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attribute : prefix ''' attribute designator ; 


attribute designator : 
sim n 
IDIGITS TOKEN 
IDELTA TOKEN 
IRANGE TOKEN ; 


aggr : 
“Сстроп ас ...сіпроп asc.. ')'; 
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cmpon. asc 
ехрг 
Ichoice ..0r choice.. ARROW expr 
Isim expr DOUBLE DOT sim expr 
Iname rng. c ; 


expr : 
геі. АМО . rel... | rel..AND A THEN. rel.. 
Irel.OR. rel..l rel.OR ELSE rel.. 
Irel..XOR, rel. ; 


rel : 
sim_expr .relal_op__sim_expr. 
lsim_expr.NOT.IN__mg_or_sim_expr.NOT.IN__ty_mk ; 


sim expr : 
.unary add op.term..binary add op  term..; 


term : factor..mult op  factor.. ; 


factor: pri. EXP. рп. ІАВ5 ТОКЕМ рг ІМОТ TOKEN pri ; 


pri : 
numeric literal | NULL ТОКЕМ 
lallocator | qualified expr 
Iname 


laggr ; 


relal_op : ‘=’ 
| INEQUALITY 
| <‘ 
I LESS THAN OR EQUAL 
| ‘>’ 
I GREATER THAN OR EQUAL ; 


binary add op : ‘+’ | ‘-’ | ‘&’; 


unary add op : ‘+’ | ‘-’ ; 
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mult op : **' |“ | MOD ТОКЕМ І REM TOKEN ; 


qualified expr: 
tv. mkaggr or. tv. mkPexprP. ; 


allocator : 
NEW TOKEN ty. mk 
INEW TOKEN ty mk aggr 
| NEW TOKEN ty mk '" aggr ; 


seq of stmts: ..prag.. stmt ..stmt.. ( null; } -- Because of bug 


stmt : 
..label.. sim. stmt 
| .abel. compound stmt 


<, 


| error 5 ; 


--stmt : 
--..label.. sim_stmt 
-- | .Jabel. compound stmt 


©. 


-- | eror 5 ; 


sim, stmt :null stmt 

Iset exec start assignment stmt set exec end 
| set exec start exit stmt set exec end 
зе exec start return stmt — set exec end 

| set exec start goto stmt set exec end 
Iset exec start delay stmt — set exec end 

| set exec start abort stmt set exec end 
Iset exec start raise stmt set exec end 

| set exec start code stmt set exec end 
| set exec. start name *;' set exec end ; 


--sim, stmt :null stmt 

-- lassignment sunt | exit stmt 
-- lreturn_stmt | goto stmt 
-- ldelay stmt | abort stmt 
-- [raise stmt | code stmt 

- | name 5; ; 
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compound stmt : 
set exec start if stmt 
| set exec start case stmt 
Iset exec start loop stmt 
| set exec start block stmt 
Iset exec start accept stmt set exec end 
lset exec start select stmt set exec end ; 


--compound stmt : 
--if. stmt 

-- | case stmt 
-- lloop stmt 

-- | block stmt 
-- laccept stmt 

- |select stmt ; 


label : 
check label start 
LEFT LABEL BRACKET sim n RIGHT LABEL BRACKET 
check label end 


, 


null strat : check null start NULL TOKEN ';' check null end ; 
— null stmt : NULL TOKEN °“ ; 


assignment stmt : name ASSIGNMENT expr ‘;’ ; 


if stmt : 
IF TOKEN cond THEN TOKEN 
seq of stmts 
.ELSIF. cond THEN. seq of stmts.. 
ELSE seq of stmts. 
CHECK END EXEC STMT IF TOKEN 5; ; 


--if stmt : 

--ІЕ ТОКЕМ cond THEN. TOKEN 

-- Seq of stmts 
--.ELSIF. cond THEN. seq of stmts.. 
-..ELSE , seq of stmts. 

-- END TOKEN IF TOKEN ‘°;’ ; 
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cond : expr; 


case_stmt: 
CASE_TOKEN expr IS_TOKEN 
case. stmt alt..case stmt alt.. 
CHECK END EXEC STMT CASE TOKEN ';'; 


--Case_stmt: 

--CASE_TOKEN expr IS_TOKEN 

-- case_stmt_alt..case_stmt_alt.. 

-- ЕКО ТОКЕМ СА5Е ТОКЕМ“);; 


case stmt alt : 
СНЕСК WHEN choice ..0r choice.. ARROW 
seq of stmts ; 


--case, stmt alt : 
- WHEN TOKEN choice ..or. choice.. ARROW 
-- Seq of stmts ; 


loop stmt: 
.sim, nC. 
iteration scheme. LOOP. TOKEN 
seq of stmts 
CHECK END EXEC STMT LOOP TOKEN .sim n. ;' ; 


--loop stmt: 

--.sim, nC. 

-- teration scheme. LOOP TOKEN 

-- seq of stmts 

-- END TOKEN LOOP TOKEN .sim n. 5;' ; 


iteration. scheme 
: WHILE TOKEN cond 
I WHILE TOKEN error 
| FOR. TOKEN loop prm, spec 
| FOR, TOKEN error 


, 


loop. prm, spec : 
IDENTIFIER IN TOKEN .REVERSE. dscr mg ; 
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block stmt : 
.sim, nC. 
DECLARE decl part. 
check begin..end start 
BEGIN. TOKEN 
check begin..end start 
seq of stmts 
EXCEPTION. excptn handler..excptn handler... 
check end block stmt .sim n. 5;' ; 


--block stmt : 

--.sim, nC. 

-- .DECLARE decl part. 

-- BEGIN TOKEN 

-- seq. of stmts 

-- ,.EXCEPTION. excptn handler..excptn handler... 
-- END TOKEN .sim_n. ‘;’; 


exit stmt: 
EXIT TOKEN .expanded n..WHEN cond. *;'; 


return stmt : RETURN TOKEN .expr. ‘;’ ; 


goto stmt : GOTO TOKEN expanded n *;' ; 


subprg d : subprg spec 5;' ; 


procedure ident : 
set. dec. start 
PROCEDURE TOKEN IDENTIFIER ; 


function desig : 
set dec start 
FUNCTION TOKEN designator ; 


--function, desig : 


--set dec. start 
- FUNCTION TOKEN designator set dec end ; 
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subprg spec : 
procedure ident .fml part. set dec end 
| function, desig .fml part. RETURN TOKEN ty mk set dec end ; 


designator : IDENTIFIER ! op symbol ; 
op. symbol : STRING. LITERAL ; 


fml part : 
*(* prm, spec .. .prm spec.. )' ; 


prm spec : 
idents *:' mode ty mk . ASN expr. ; 


mode : JN. | IN TOKEN OUT TOKEN Il OUT TOKEN ; 


subprg body : 
subprg spec IS. TOKEN 
decl part. 
check begin..end delinate start 
BEGIN TOKEN 
check begin..end delinate, end 
seq of stmts 
EXCEPTION  excptn handler..excptn handler... 
check begin..end delinate start 
END TOKEN .designator. °; 
check begin..end delinate end 


, 


--Ssubprg. body : 

--subprg spec IS. TOKEN 

-- .decl part. 

—BEGIN TOKEN 

-- seq of stmts 
--ЕХСЕРТІОМ . excptn handler..excptn handler... 
— END TOKEN .designator. ‘;’ ; 


pkg d : pkg spec ;' ; 
package ident 


PACKAGE TOKEN 
IDENTIFIER 
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IS TOKEN 


. 
» 


set dec. start end : 


( FLAGS. ARRAY(STMT. TYPE'val(1), 1) :- true; 


put (“ dec start pkg “); 


FLAGS_ARRAY(STMT_TYPE ’ val(1), 2) := true; 


put (' dec end pkg “); 
} 


--check_pkg_declaration : 

-- package_ident 

- set dec start end 
-- І5 ТОКЕМ 


• 
, 


check pkg declaration : 
PACKAGE TOKEN 
IDENTIFIER 
set dec start 
IS TOKEN 
set dec end 


pkg spec : 
check pkg. declaration 
..basic decl item.. 
.PRIVATE..basic., decl. item... 
check. end, declarations start 
check end dec 
.sim_n. 


° 
? 


--pkg spec : 

- PACKAGE TOKEN 
--JIDENTIFIER IS TOKEN 

--  .basic. decl item.. 
--,PRIVATE..basic decl item... 
-XEND TOKEN.sim n. ; 


рКр body : 


check, package. body. or. body. stub 


.BEGIN, seq of stmts.EXCEPTION  excptn handler..excptn handler... 


check begin..end delinate start 
END TOKEN .sim п.“; 
check begin..end delinate end 


, 
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--pkg. body : 

-PACKAGE TOKEN BODY TOKEN sim nIS. TOKEN 

-- (есі рагі. 

-- .ВЕСІМ seq of stmts.EXCEPTION  excptn handler..excptn handler... 
--END_TOKEN .sim_n.‘;’ ; 


priv_ty_d : 
TYPE_TOKEN IDENTIFIER IS_TOKEN .LIMITED. PRIVATE_TOKEN ‘;’ 
| 


TYPE TOKEN IDENTIFIER discr part IS TOKEN .LIMITED. PRIVATE TOKEN *;' ; 


use cl : check with and use start 
USE TOKEN expanded n ...expanded n.. *;' 
check. with, and, use end ; 


—renaming d : 

-- set dec start idents ':'tv mk RENAMES TOKEN name *;' 

-- |set dec start idents ':' EXCEPTION TOKEN . RENAMES TOKEN expanded n °; 
-- | package ident RENAMES TOKEN expanded n *;' 

-| subprg spec RENAMES TOKEN name 5; ; 


renaming d : 
set dec start idents ':'tv mk RENAMES TOKEN name ';' 
| set dec start idents ':' EXCEPTION TOKEN —. RENAMES, TOKEN expanded n *;' 
| PACKAGE TOKEN IDENTIFIER RENAMES TOKEN expanded n ';' 
I subprg spec RENAMES TOKEN name ';' ; 


task d : task spec ';' ; 


task spec : 
TASK TOKEN set dec. start . TYPE. IDENTIFIER 
AS..ent d ..rep cl END:sim n. ; 


task bodv : 
task bodv or bodv. stub 
CHECK BEGIN STMT: seq of stmts 
EXCEPTION. excptn handler..excptn handler... 
check begin..end delinate start 
END TOKEN .sim n. °; 
check begin..end delinate end : 


2 


—task bodv : 

-TASK TOKEN BODY TOKEN sim n IS TOKEN 
-- .decl part. 

--BEGIN TOKEN 

-- Seq of stmts 

--.EXCEPTION. excptn handler..excptn handler... 
-- END TOKEN (іт п.4”; 


ent_d : 
set dec, start ENTRY TOKEN IDENTIFIER .fml, part. *;' set dec end 
| set dec start ENTRY TOKEN IDENTIFIER ‘(‘ dscr_rng *)' .fml, part. *; 
set dec end ; 


ent call stmt : 
..prag.. name *;' ; 


accept stmt : 
ACCEPT TOKEN sim, n .Pent idx P..fml part. 
.DO. seq of stmts | END.sim, n.. 5; ; 


ent idx :expr ; 


delay stmt : DELAY TOKEN sim expr 5; ; 


select stmt :selec wait 
Icondal ent. calll timed ent call ; 


selec май: 
SELECT TOKEN 
select alt 
„ОК select, alt.. 
ELSE seq of stmts. 
END TOKEN SELECT TOKEN ';': 


--selec wait: 

--SELECT_TOKEN 

-- Select alt 

-- .OR. select alt.. 

-- .ELSE seq of stmts. 

-- END TOKEN SELECT TOKEN *;': 
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select alt : 
.WHEN condARROW selec wait alt ; 


selec wait alt : accept alt 
Idelay alt ! terminate alt ; 


accept alt : 
accept stmt.seq of stmts. ; 


delay. alt : 
delay stmt.seq of stmts. ; 


terminate alt : TERM, stmt; 


condal ent call: 
SELECT. TOKEN 
ent call stmt 
.seq of stmts. 
ELSE TOKEN 
seq of stmts 
END TOKEN SELECT TOKEN *5'; 


--condal ent call: 

--SELECT_TOKEN 

-- ent call stmt 

-- .Seq of stmts. 

--ELSE_TOKEN 

-- Seq of stmts 

-- END TOKEN SELECT TOKEN ';'; 


timed ent call : 
SELECT TOKEN 
ent call stmt 
.seq. of stmts. 
OR TOKEN 
delav. alt 
END TOKEN SELECT. TOKEN *;' ; 


--timed ent call : 
--SELECT. TOKEN 


25, 


-- ent call stmt 

— .seq_of_stmts. 

--OR, TOKEN 

-- delay. ап 

-- END TOKEN SELECT. TOKEN *;' ; 


abort stmt : ABORT TOKEN name ...name.. ';' ; 


compilation :..compilation unit.. count last line ; 


--compilation :..compilation unit. ; 


compilation unit : 
context cllibrary unit 
| context cl secondary unit ; 


library, unit : 


subprg dl pkg d 
| gen dl gen inst 
Isubprg body ; 


secondary unit: 
library unit, body | subunit; 


library unit body : 
pkg body or subprg body ; 


context cl :..with. cl.use cl... ; 


with cl : check with and use start 
WITH TOKEN sim n ...sim. n.. °“; 
check, with and use end ; 


--with cl : set dec start WITH TOKEN sim n ...sim n.. ;' set dec end ; 
body. stub : 
subprg spec IS TOKEN SEPARATE TOKEN ‘;’ 


| check package body or body stub set dec end ';' 
| task body or body stub set dec end ';' 
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--body stub : 

-- subprg spec IS TOKEN SEPARATE TOKEN °; 

- | PACKAGE TOKEN BODY TOKEN sim nIS TOKEN SEPARATE TOKEN '; 
- | TASK TOKEN BODY TOKENsim n IS TOKEN SEPARATE TOKEN 5' ; 


subunit : SEPARATE TOKEN '(' expanded n *)' proper. body ; 


excptn d : set dec start idents ** EXCEPTION TOKEN ';'; 


excptn handler: 
CHECK WHEN exocptn choice ..or excptn choice.. ARROW 
seq of stmts ; 


--excptn handler: 
-"WHEN TOKEN excptn choice ..or excptn choice.. ARROW 
-- Seq of stmts ; 


exepin choice : expanded n IOTHERS, TOKEN; 


raise stmt : RAISE TOKEN .expanded n. *;' ; 


gen d : реп spec 5 ; 


gen spec : 
gen fml part subprg spec 
Igen fml part pkg spec ; 


--gen spec : 
--gen fml part subprg spec 
-- lgen fml part pkg spec ; 


gen fml part :set dec start GENERIC, TOKEN set, dec end ..gen prm d.. ; 


—gen fml part : GENERIC, TOKEN ..gen prm d.. ; 
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gen prm d : 
set dec start 
idents *:' .IN.OUT.. ty mk. ASN expr. ‘y 
set dec end 
| set dec start 
TYPE TOKEN IDENTIFIER IS TOKEN gen ty def °; 
set dec end 
Iset dec start 
priv. ty d 
set dec end 
| WITH TOKEN subprg. spec ..IS BOX .'; 


? 


--gen prm d : 

--idents *:' IN.OUT.. ty mk. ASN expr. 5” 

-- | TYPE TOKEN IDENTIFIER IS. TOKEN gen tv. def ';' 
-- [priv ty d 

- | WITH TOKEN subprg. spec .IS BOX . 5" ; 


gen ty def 
( BOX y 
I RANGE TOKEN BOX 
| DIGITS TOKEN BOX 
| DELTA TOKEN BOX 
| array. ty. def 
| access ty def 


check pkg inst, declaration : 
PACKAGE TOKEN 
IDENTIFIER 
set dec start 
IS TOKEN 
NEW TOKEN 


gen inst : 
check pkg. inst. declaration 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS, F.PANELI10.LINE, 3) then 
FLAGS ARRAY (STMT TYPE'val (1), 1) : TRUE; 
put (“ dec start °); 
else 
null; 
end if; ) 
expanded n 
.gen act, part. 


€, 
? 
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(if COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE. 3) then 
FLAGS ARRAY (STMT_TY PE’ val (1), 2) := TRUE; 
рш (С dec end “); 
else 
null; 
end if; } 
IPROCEDURE. ident. IS- 
(if COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 3) then 
FLAGS ARRAY (STMT. TYPE'val (1), 1): TRUE; 
put C' dec start ''); 
else 
null; 
end if; ) 
NEW TOKEN expanded n .gen act part. ';' 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI1O.LINE 3) then 
FLAGS ARRAY (STMT TYPE'val (1), 2) :- TRUE; 
put (“ dec end %; 
else 
null; 
end if; ) 
Ifunction desig IS TOKEN 
( i£COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELIO.LINE 3) then 
FLAGS ARRAY (STMT TYPE 'val (1), 1) : TRUE; 
put (“ dec start '); 
else 
null; 
end if; ) 
NEW TOKEN expanded n .gen act part. *;' 
( i£ COUNT CLARIFICATION (GLOBAL.RECORD FLAGS F.PANELI10.LINE. 3) then 
FLAGS ARRAY (STMT TYPE'val (1), 2) :- TRUE; 
put (“ dec end “); 
else 
null; 
end if; } 


gen_act_part : 
set_dec_start 
*(° gen_asc ...gen_asc.. °) 
set_dec_end 


--gen act, part : 
-- '('gen asc ...gen asc.. ) ; 


gen_asc 
.gen_fml_prmARROW.gen_act_prm ; 
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gen fml prm : 
sim. n | op symbol ; 


gen act prm : 
expr or name, or subprg n or ent n or ty mk 


, 


rep cl: 
ty rep cl | address cl ; 


гу rep cl : length cl 
lenum rep cl 
песшер с: 


length cl : FOR, TOKEN attribute USE_TOKEN sim_expr ‘;’ ; 


enum rep cl : 
FOR ty sim n USE aggr '; 


rec rep ck 
FOR, ty sim n USE. 
RECORD TOKEN .algt cl. 
..cmpon cl.. 
CHECK END DEC RECORD TOKEN 5; ; 


--гес тер сі: 
—FOR ty sim n. USE. 
— RECORD TOKEN aalgt cl. 


— .cmpon_cl.. 
22 END TOKEN RECORD TOKEN 5' ; 


algt cl : AT TOKEN MOD TOKEN sim expr 5 ; 


cmpon cl : 
пате АТ TOKEN sim expr RANGE TOKEN mg *;' ; 


address cl : FOR, TOKEN sim. n USE TOKEN AT TOKEN sim expr ';' ; 


code stmt : ty mk rec aggr 5;'; 


.prag.. : 
I..prag.. prag ; 


‚агр_а$с$: 
| “С агр а5св“)”; 


arg ascs: 
arg asc 
| arg ascs ', arg asc; 


..ASN expr.: 
IASSIGNMENT expr ; 


...ident.. : 
| ...ident.. ',' IDENTIFIER ; 


.constrt. : 
lconstrt ; 


expanded n : 
IDENTIFIER 
| expanded_n*.’ IDENTIFIER ; 


..enum lit spec..: 
| ..enum lit spec.. °,” 
enum lit spec ; 


ПІБЕС, : 
Img c; 


„лах subty def.  : 
| ..idx subty def.. ','idx subty. def 


...dScr_mg.. : 
|. ...dscr rng.. *,' dscr rng ; 


.cmpon d..: 
| .cmpon d..cmpon d..prag. ; 


...discr, spec..: 
| ...discr. spec.. *;' discr spec ; 


..Variant.. : 
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l..variant.. variant ; 


..Or. choice.. : 
| ..or_choice.. ‘? choice ; 


..basic_decl_item.. 
.prag.. 
I. basic decl item.. basic decl item ..prag.. ; 


..later. decl item.. 
..prag.. 
| .Jater decl item.. later decl item ..prag.. ; 


...cmpon, asc.. 
| ..cmpon asc.. *,' cmpon asc ; 


теі. АМО теі. : 


rel AND TOKEN rel 
Irel.AND  rel.. AND TOKEN rel; 


rel..OR. rel.. : 
rel OR, TOKEN rel 
Irel..OR, rel.. OR, TOKEN rel ; 


rel..XOR. rel.. : 
rel 
l..XOR. rel. ; 


.XOR. rel. : 


те! ХОВ TOKEN rel 
l..XOR. rel. XOR, TOKEN rel; 


rel.AND THEN теі. : 


rel AND TOKEN THEN TOKEN rel 
Irel. AND . THEN. rel.. AND TOKEN THEN TOKEN rel ; 


rel..OR, ELSE rel..: 
rel OR. TOKEN ELSE TOKEN rel 
Irel..OR, ELSE rel.. OR TOKEN ELSE TOKEN rel ; 
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relal op. sim expr. : 
Irelal op sim, expr ; 


sim expr.NOT.IN rng or sim expr.NOT.IN ty mk: 
sim expr .NOT. IN TOKEN rng ; 


МОТ. : 
ІМОТ ТОКЕМ ; 


.junarv add op.term..binarv. add op. term.. : 
term 
lunarv. add op term 
l.unary. add op.term..binary add op  term.. 
binary. add op term ; 


factor..mult op  factor..: 
factor 
Ifactor..mult op  factor.. mult op factor ; 


MEXE pri.: 
IDOUBLE STAR pri; 


ty mkaggr or tv. mkPexprP. : 
prefix ‘’’ aggr ; 


„ЗИП... : 


..prag.. 
l..stmt.. stmt ..prag.. ; 


..label.. : 
l..label.. label ; 


.ELSIF cond THEN. seq of stmts.. : 
I.ELSIF cond THEN seq of stmts.. 
ELSIF TOKEN cond THEN. TOKEN 
seq of stmts ; 


ELSE seq of stmts:: 
IELSE TOKEN 
seq of stmts ; 
case stmt alt..case stmt alt. : 


..prag.. 
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case stmt alt 
„case stmt alt.. ; 


. Case. stmt alt..: 
l..case stmt alt..case stmt. alt ; 


.sim_nC.: 
I USiHn n 


.SIM n. : 
іт п ; 


Ateration, scheme. : 
literation scheme ; 


REVERSE.: 
IREVERSE TOKEN ; 


.DECLARE (ес! рап. : 
Iset exec start DECLARE TOKEN 


decl partset exec end; 


EXCEPTION. excptn handler..excptn. handler... : 
Icheck, exception keyword, start 
EXCEPTION TOKEN 
check exception keyword end 
.prag..excptn handlers set exec end ; 


-. EXCEPTION. .excptn handler..excptn handler... : 
-- [EXCEPTION TOKEN ..prag..excptn handlers set exec end ; 


excptn handlers: 
excptn, handler 
lexcptn handlers excptn handler ; 


expanded n. : 
lexpanded n ; 


.WHEN. cond. : 
ICHECK WHEN cond; 


-- МНЕМ сопа. : 
- IWHEN TOKEN cond; 
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ехрг.: 
lexpr ; 


.fm] part. : 
Ifm] part ; 


"prim spec.. : 
| .._.prm_spec.. ‘;’ prm_spec ; 


JN. : 
IIN TOKEN ; 


.decl part. : decl part ; 


.designator. : 
| designator ; 


.PRIVATE..basic decl item... : 
Iset dec start 
PRIVATE TOKEN 
set dec end 
..basic. decl. item.. ; 


--,PRIVATE..basic decl item... : 
-- | PRIVATE TOKEN 
-- basic decl item.. ; 


.BEGIN. seq of stmts.EXCEPTION excptn handler..excptn handler... 


Icheck, begin stmt 
seq of stmts 
EXCEPTION  excptn handler..excptn handler... ; 


-,BEGIN seq of stmts.EXCEPTION  excptn handler..excptn handler... 


- |BEGIN TOKEN 
-- seq of stmts 
-- EXCEPTION  excptn handler..excptn handler... ; 


LIMITED. : 
ILIMITED TOKEN ; 
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.expanded n..: 
| ..expanded n..',' expanded n ; 


TYPE.. 
ITYPE_TOKEN ; 


JS..ent d ..rep cl END.sim n. : 
IIS TOKEN 
..ent. d.. 
«Tepel. 
END_TOKEN .sim_n. ; 


„ent_d.. : 


prag.. 
еп. d.. ent d ..prag..; 


„Tepel; 
I.rep cl..rep cl ..prag..; 


Pent idx P..fm] part. : 
(ті part. 
| '(*ent idx *)' .fml part. ; 


.DO. seq of stmts END:sim n.. : 
IDO TOKEN 
seq of stmts 
END TOKEN .sim n. ; 


—,DO. seq of stmts | END.sim n.. : 
— IDO TOKEN 

-- seq of stmts 

--END TOKEN .sim n. ; 


„ОК select alt.. : 
ОК select. alt.. OR. TOKEN select alt; 


.WHEN  condARROW.selec, wait alt : 
selec wait alt 
ICHECK WHEN cond ARROW selec wait alt ; 


-- WHEN . condARROW.selec wait alt : 
--selec wait alt 
-- IWHEN TOKEN cond ARROW selec wait alt ; 
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accept stmt.seq of stmts. : 
..prag.. accept. stmt .seq of stmts. ; 


delay stmt.seq of stmts. : 
..prag.. delay. stmt .seq of stmts. ; 


TERM, stmt : .prag. TERMINATE TOKEN ‘;’ 
prac. * 


—TERM stmt : ..prag.. set exec start TERMINATE TOKEN ';' 
-- .prag.. set exec end ; 


eq of stmts.: 


..prag.. 
Iseq of stmts; 


„name... 
| ...name.. ,' name ; 


compilation unit. : 


..prag.. 
l..compilation unit.. compilation unit ..prag.. ; 


pkg body or subprg body : pkg body ; 


With cl.use cl....: 
l..with cl..use cl.... with cl use cls; 


use_cls : 


..prag.. 
luse cls use cl ..prag.. ; 


...Sim, n.. : 
| ..sim n. “зи п: 


.Or excptn choice. : 
| ..or excptn choice.. 'l' excptn choice ; 


111 


..gen_prm_d.. : 
l..gen_prm_d.. gen_prm_d ; 


IN.OUT.. : 
IN. 
IIN TOKEN OUT TOKEN ; 


15 ВОХ .: 
15 ТОКЕМ пате 
15 ТОКЕМ ВОХ; 


PROCEDURE. ident IS  : subprg spec IS TOKEN ; 


gen act, part. : 
Igen act part; 


...gen, asc.. : 
| ...gen asc.. *,' gen asc ; 


--.gen fml prnARROW.,gen act prm : 

-- set dec. start 

-- gen act prm 

-- set dec end 

-- | 

-- set_dec_start 

-- gen fml prm ARROW gen act, prm 
-- set dec end 


. 
, 


.gen fml prmARROW.gen act. prm : 
gen act prm 
lgen fm] prm ARROW gen act prm ; 


expr or name or subprg n or ent n or ty. mk 
GADI; 
FOR ty sim n USE : 


FOR, TOKEN sim, n USE TOKEN; 


Algt cl. : 
..prag.. 
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| ..prag..algt cl..prag.. ; 


empon_cl.. : 
| ..cmpon_cl.. cmpon_cl ..prag.. ; 


ty mk rec aggr : qualified expr ; 


%% 


package parser is 
procedure vvparse; 


echo : boolean := false; 
number_of_errors : natural := 0; 


end parser; 


with ada_tokens, ada_goto, ada_shift_reduce, ada_lex, text_io, GLOBAL; 
use ada_tokens, ada_goto, ada_shift_reduce, ada_lex, text_io, GLOBAL; 
package body parser is 


procedure yyerror(s: in string := “syntax error”) is 
begin 

number_of_errors := number_of_errors + 1; 
put <<< *** €). 
put lines); 

end yyerror; 


##% procedure_parse 


end parser; 
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АРА LEX.L 


И... */ 
--/* Lexical input for LEX for LALR(1) Grammar for ANSI Ada */ 
--/* B) 

--/* Herman Fischer t 
--/* Litton Data Svstems €) 
--/* March 26, 1984 5 
--/* СА 

--/* Accompanies Public Domain YACC format Ada grammar ш 
--/* s 

--/* */ 

x €) 

--/* */ 

--/* v 

--/* €) 

--/* El 

ЕН ЛЕ e E TEE PEE TTE */ 
%START IDENT Z 

A [aA] 

B [bB] 

C [cC] 

D [dD] 

Е [еЕ] 

E [fF] 

G [gG] 

H [hH] 

I [il] 

J [Л] 

К [kK] 

L [IL] 

M [mM] 

N [nN] 

O [oO] 

Р [РР] 

Q [qQ] 

R [rR] 

S (sS) 

T [tT] 

U [uU] 

V [v V] 

W [wW] 

X [xX] 

Y [yY] 

Z [zZ] 


X 
eq 
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(АҢВИОНЕНТ)  {ECHO; ENTER(Z); return(ABORT_TOKEN);} 
(AHBHS) (ECHO; ENTER(Z); retum(ABS. TOKEN);) 
(АҢСИСНЕНРИТ) (ECHO; ENTER(Z); retum(ACCEPT TOKEN);) 
[AMCHCHEMSMHS) | (ECHO; ENTER(Z); retur(n(ACCESS. TOKEN);) 


(A) (L)(L) (ECHO; ENTER(Z); retum(ALL  TOKEN);) 
{A}{N}{D} (ECHO; ENTER(Z); retum(AND TOKEN);) 
(AHMRHRHAHX) (ECHO; ENTER(Z); retum(ARRAV TOKEN);) 
(АТ) (ECHO; ENTER(Z); retum(AT TOKEN);) 
(BHEHGHIHN) (ECHO; ENTER(Z); return(BEGIN, TOKEN);] 
(B)(O])(D)(Y) (ECHO; ENTER(Z); return(BODY TOKEN);) 
(CHAHSHE) (ECHO; ENTER(Z); retum(CASE TOKEN);) 


[CHONNHS)HT)ANN)HT) | (ECHO; ENTER(Z); retur(CONSTANT. TOKEN);] 
(DHEMCHL)(AMRHE) (ECHO; ENTER(Z); retum(DECLARE. TOKEN);) 
[D}{E}{L}{A}{Y} X (ECHO; ENTER(Z); retum(DELAY. TOKEN);) 
(D}{E}{L}{T}{A} | (ECHO; ENTER(Z); retur(DELTA TOKEN);) 
(DMIMGHIMTMS) (ECHO; ENTER(Z); returDIGITS TOKEN);) 


{D}{O} {ECHO; ENTER(Z); return(DO_TOKEN); } 
(EIL) (S) (E) (ECHO; ENTER(Z); retum(ELSE TOKEN);) 
Е {ТЕ} (ECHO; ENTER(Z); retum(ELSIF TOKEN);) 
(EN) (D) (ECHO; ENTER(Z); return(END TOKEN);) 


(EN) (TMHR)(Y) (ECHO; ENTER(Z); return(ENTRY TOKEN);) 
(ЕНХИСНЕНРИТИІНҢОНЫ) (ECHO; ENTER(Z); return(EXCEPTION TOKEN);] 
(EJ (X) (IT) (ECHO; ENTER(Z); returmn(EXIT TOKEN);) 

{F}{O}{R} (ECHO; ENTER(Z); retum(FOR TOKEN);) 

(FHUJ)(N) (CHT) (Q)(OHN) (ECHO; ENTER(Z); retum(FUNCTION ТОКЕМ);) 
(GHEHNHEHRHIHC) (ECHO; ENTER(Z); retum(GENERIC TOKEN);) 


{G}{O}{T}{O} (ECHO; ENTER(Z); retum(GOTO TOKEN);) 

(I) (F) (ECHO; ENTER(Z); return(IF TOKEN);) 

Пим) (ECHO; ENTER(Z); retum(IN TOKEN);) 

(MES) (ECHO; ENTER(Z); return(IS TOKEN);) 

{L} {I} {M}{1}{T}{E}{D} (ECHO; ENTER(Z); retum(LIMITED TOKEN);) 
{L}{O}{O}{P} (ECHO; ENTER(Z); retum(LOOP TOKEN);) 
{M}{O}{D} {ECHO; ENTER(Z); return(MOD_TOKEN);} 
(NHEHW) (ECHO; ENTER(Z); retum(NEW TOKEN);) 
{N}{O}{T} (ECHO; ENTER(Z); retun(NOT TOKEN);) 
{N}{U}{L}{L} (ECHO; ENTER(Z); retum(NULL TOKEN);) 

(O) (F] (ECHO; ENTER(Z); retum(OF TOKEN);) 

(ОНЕ) (ECHO; ENTER(Z); retum(OR TOKEN);) 
{O}{T}{H}{E}{R}{S} (ECHO; ENTER(Z); retum(OTHERS  TOKEN);] 
(ОНОНТ) (ECHO; ENTER(Z); return(iQUT TOKEN);] 


(PI(AJC)(K)(AJ(GHE) (ECHO; ENTER(Z); returnnPACKAGE TOKEN);] 
{P}{R}{A}{G}{M}{A} . (ECHO; ENTER(Z); retum(PRAGMA, TOKEN);) 
(PMHR)(QJ(VHA)(T)(E) (ECHO; ENTER(Z) retum(PRIVATE ТОКЕМ);) 
(PM R)(O)J(C)(EMD)(U)J(R)(E) (ECHO; ENTER(Z); retum(PROCEDURE TOKEN);) 
{R}{A} {1} {S}{E} (ECHO; ENTER(Z); retum(RAISE TOKEN);) 

(R)(A) N)(G)E) (ECHO; ENTER(Z); returm(RANGE TOKEN);) 
(RME)C)OHR)(D) |(ECHO;ENTER(Z); retum(RECORD TOKEN);) 
(R) (E) (M) (ECHO; ENTER(Z); return(REM TOKEN);) 
{(R}{E}{N}{A}{M}{E}{S} (ECHO; ENTER(Z); return(RENAMES TOKEN);) 
{RHE}{T}{U}{R}{N} (ECHO; ENTER(Z); return(RETURN TOKEN);) 
(RJ(EJV)(E)J(R)(S)(E) (ECHO; ENTER(Z); return(REVERSE TOKEN);) 
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(SHE)L)(E)C)(T) (ECHO; ENTER(Z); return(SELECT_TOKEN);} 
(ЭӘНЕНРНАНЕНАНТИНЕ) (ECHO; ENTER(Z); retum(SEPARATE TOKEN);) 
(SHUHMBHTHXHPHE) (ECHO; ENTER(Z); retum(SUBTXPE TOKEN);) 


{T}{A}{S}{K} (ECHO; ENTER(Z); retum(TASK TOKEN);) 
(ІТНЕНЕНМНИІНҢМНАНТНЕ) {ECHO; ENTER(Z); return(TERMINATE_TOKEN); } 
{T}{H}{E}{N} {ECHO; ENTER(Z); return(THEN_TOKEN); } 

(ТМҮНРНЕ) (ECHO; ENTER(Z); retum(TXPE TOKEN);) 

(UHSHE) (ECHO; ENTER(Z); returnCUSE_TOKEN);} 

СУҮҢННЕНМ) (ECHO; ENTER(Z); retun(WHEN TOKEN);) 

{W}{H} {I} {L}{E} {ECHO; ENTER(Z); retum(WHILE TOKEN);) 

СҮНІНТНН) (ECHO; ENTER(Z); retum(WITH TOKEN);) 

(X) (OHR] (ECHO; ENTER(Z); retun(XOR, TOKEN);] 


“=>” (ECHO; ENTER(Z); return(ARROW);} 

“.” (ECHO;ENTER(Z) retum(DOUBLE DOT);) 

"**' (ECHO; ENTER(Z); retum(DOUBLE STAR);] 

“=” (ECHO; ENTER(Z); return( ASSIGNMENT); 

"[2" (ECHO; ENTER(Z); return(INEQUALITY);) 

"22" (ECHO; ENTER(Z); retur(GREATER THAN OR EQUAL);] 
"«2" (ECHO; ENTER(Z); retur(LESS THAN OR EQUAL);) 
"««" (ECHO; ENTER(Z); return(LEFT LABEL BRACKET);) 
“>>” (ECHO; ENTER(Z); return(RIGHT LABEL BRACKET); 
“<>” (ECHO; ENTER(Z); return(BOX);] 

"&" (ECHO; ENTER(Z); retum(' &"); ) 

"(* (ECHO; ENTER(Z); retum('(*); ) 

“” (ECHO; ENTER(IDENT); return( ^) ); ) 

“ж” (ECHO; ENTER(Z); returm( *^); } 

“+” (ECHO; ENTER(Z); retum( ^); ) 

*" A (ECHO; ENTER(Z); return(',"); ) 

*-" (ECHO; ENTER(2Z); return( -^); ) 

*"  {ECHO; ENTER(Z); return(‘.’); } 

“P” (ECHO; ENTER(Z); retum(/); ) 

“” (ECHO; ENTER(Z); retum(':); ) 

(ECHO; ENTER(Z); return(^;); ] 

(ECHO; ENTER(Z); retum('«*); ) 

(ECHO; ENTER(Z); return(‘=’); } 

(ECHO; ENTER(Z); return(/»^); ) 

“” (ECHO; ENTER(Z); retum('!); ) 

<IDENT>Y {ECHO; ENTER(Z); return(‘’’);} 


# - e 
- e е. 
we 
ил“: 
v е Ф 
ә e 


e 
v 
- 
К 


[a-z_A-Z][a-z_A-Z0-9]* (ECHO; ENTER(IDENT);retum(IDENTIFIER);) 
[0-9] [0-9_}*([.][0-9_]+)?({Ee]{-+]?[0-9_]+)? { 

ECHO; ENTER(Z); 

retumn(REAL_ LITERAL); } 


[0-9] [0-9_]*#[0-9a-fA-F_]+([.][0-9a-fA-F_]+)?#({Ee][-+]?[0-9_]+)? { 
ECHO; ENTER(Z); 
retum(INTEGER LITERAL);) 

V(^"]*(7)*) (ECHO; ENTER(Z); return(STRING_LITERAL);} 


«Z2N([]NN)N |. (ECHO; ENTER(Z); return(CHARACTER, LITERAL);] 
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— Looking for an elsif on a line bv itself 
^[X]*"elsif"[ X]^nu ( ECHO; 
ENTER(Z); 
--put_line (“ just found a elsif on a line by itself °°); 
if GLOBAL.COUNT_CLARIFICATION 
(GLOBAL.RECORD_FLAGS_F.PANEL10.LINE_11) then 
--put (“exec start '); 
--put (“ exec end “); 
--new_line; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (0), 1) : TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (0), 2) :z TRUE; 
GLOBAL.ADD TO ARRAY; 
else 
null; 
end if; 
linenum; 
retum(ELSIF TOKEN); ) 


— Looking for an "else" on a line by itself 


^[N]*"else"[ N]*n ( ECHO; 
ENTER(Z); 
--put_line (“ just found a else on a line by itself “); 
if GLOBAL.COUNT_CLARIFICATION 
(GLOBAL.RECORD_FLAGS_F.PANEL10.LINE_10) then 
--put (“ exec start “‘); 
--put (“exec end “); 
--new_line; 
GLOBAL.FLAGS_ARRAY (GLOBAL.STMT_TYPE’ val (0), 1) := TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (0), 2) : TRUE; 
GLOBAL.ADD TO ARRAY; 
else 
null; 
end if; 
linenum; 
return(ELSE TOKEN); ) 


-- Looking for a “then” on a line by itself 


^[N]*"then"[N]*n ( ECHO; 
ENTER(Z); 
--put_line (“ just found a then on a line by itself °“); 
if GLOBAL.COUNT_CLARIFICATION 
(GLOBAL.RECORD_FLAGS_F.PANEL10.LINE_10) then 
--put (“ exec start “‘); 
--put (“ exec end °“; 
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--new. line; 
GLOBAL.FLAGS. ARRAY (GLOBAL.STMT. TYPE'val (0), 1) :- TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (0), 2) :- TRUE; 
GLOBAL.ADD TO ARRAY; 

else 
null; 

end if; 

linenum; 

retum(THEN TOKEN); ) 


-- Looking for an “others” on a line by itself 


^[X]*"others"[ NX] * ( ECHO; 
ENTER(Z); 
--put_line (“ just found a others on a line by itself “%); 
if GLOBAL.COUNT_CLARIFICATION 
(GLOBAL.RECORD_FLAGS_F.PANEL10.LINE_10) then 
--put (“ exec start “); 
--put (“ exec end “); 
new. line; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (0), 1) : TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (0), 2) := TRUE; 
GLOBAL.ADD TO ARRAY; 
else 
null; 
end if; 
linenum; 
retum(OTHERS TOKEN); ) 


- Looking for a banner comment of just hyphens “---”, must be longer 
-- than two initial hypens, otherwise it is a empty comment. 


^[N]*"---""-"*[N]^n ( ECHO; 

-- put line (* found a banner comment of just hyphens *5); 
GLOBAL.FLAGS. ARRAY (GLOBAL.STMT TYPE'val (5), 1) :: TRUE; 
GLOBAL.FLAGS. ARRAY (GLOBAL.STMT TYPE'val (5), 2) :- TRUE; 
GLOBAL.ADD TO ARRAY; 
linenum; ) 


-- Checking for empty comments on a line by themselves 

^[N]*"--"[ X] ( ECHO; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (6), 1) := TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (6), 2) := TRUE; 
GLOBAL.ADD TO ARRAY; 
linenum; ) 
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-- Checking for blank lines 

^[X]*^n ( ECHO; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE val (7), 1) : TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE val (7), 1) : TRUE; 
GLOBAL.ADD TO ARRAY; 
linenum; } 


[м] ЕСНО; -- ignore spaces and tabs 


“--* Programmed" { ECHO; 
GLOBAL.SPECIAL COMMENT :- TRUE; 
GLOBAL.CURRENT SETTINGS.SECOND ATTRIBUTE : 
GLOBAL.HOW PRODUCED'val (0); ) 


*.-* Generated"  ( ECHO; 
GLOBAL.SPECIAL COMMENT :- TRUE; 
GLOBAL.CURRENT SETTINGS.SECOND ATTRIBUTE: 
GLOBAL.HOW PRODUCED'val (1); ) 


*.-* Converted^ { ECHO; 
GLOBAL.SPECIAL COMMENT :- TRUE; 
GLOBAL.CURRENT SETTINGS.SECOND ATTRIBUTE: 
GLOBAL.HOW PRODUCED 'val (2); ) 


** Copied ^ (ECHO; 

GLOBAL.CURRENT. SETTINGS.SECOND, ATTRIBUTE : 
GLOBAL.HOW_PRODUCED ’ val (3); 

GLOBAL.SPECIAL_COMMENT := TRUE; } 


*--* Modified" — ( ECHO; 

GLOBAL.CURRENT SETTINGS.SECOND ATTRIBUTE : 
GLOBAL.HOW. PRODUCED 'val (4); 

GLOBAL.SPECIAL COMMENT :- TRUE; ] 


-- User will need to follow the following examples if they want to include 
-- removed code in their counts 

----* Removed Executables => 45, Declarations => 4, Pragmas => 0 

-- --* Removed Exec => 45, Dec => 4, Prag => 0 

-- --* Removed E => 45, D=> 4, P=>0 


“--* Removed “.* { ECHO; 
GLOBAL.CURRENT_SETTINGS.SECOND_ATTRIBUTE := 
GLOBAL.HOW PRODUCED 'val (5); 
GLOBAL.SPECIAL COMMENT :- TRUE; 
GLOBAL.SPEC COMMENT. LENGTH :- ada lex dfa.vvtext'length; 
GLOBAL.SPEC COMMENT STRING (1.. GLOBAL.SPEC COMMENT LENGTH) 
:- ada lex dfa.yytext; 
GLOBAL.PARSE SPECIAL COMMENT (GLOBAL.REMOVED NUM, 
GLOBAL.SPEC COMMENT LENGTH, 
GLOBAL.SPEC COMMENT STRING); ] 
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“..ж New work" ( ECHO; 

GLOBAL.CURRENT. SETTINGS.THIRD ATTRIBUTE := GLOBAL.ORGIN'val 
(0); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


*"--* Previous version" { ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD. ATTRIBUTE : GLOBAL.ORGIN'val 
(1) 
GLOBAL.SPECIAL COMMENT :z TRUE; ] 


“+ COTS ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE :- GLOBAL.ORGIN'val 
(2); 
GLOBAL.SPECIAL COMMENT := TRUE; } 


“ж GFS” { ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE := GLOBAL.ORGIN val 
G): 
GLOBAL.SPECIAL COMMENT :- TRUE; ) 


"--* Annother product" ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE :- GLOBAL.ORGIN'val 
(4); 
GLOBAL.SPECIAL COMMENT :z TRUE; | 


*"--* VSL spt library ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE :z GLOBAL.ORGIN'val 
(5); 
GLOBAL.SPECIAL COMMENT :- TRUE; |] 


"--* VS OS or utility" ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE :- GLOBAL.ORGIN'val 
(6); 
GLOBAL.SPECIAL COMMENT :z TRUE; ) 


"--* A modified spt lib" ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE :z GLOBAL.ORGIN 'val 
(7); 
GLOBAL.SPECIAL COMMENT :- TRUE; ) 


*--* Other comm lib' ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE :- GLOBAL.ORGIN'val 
(8); 
GLOBAL.SPECIAL COMMENT :z TRUE; ) 


"-.* Reuse library" . ( ECHO; 
GLOBAL.CURRENT SETTINGS.THIRD ATTRIBUTE : GLOBAL.ORGIN'val 
(9); 
GLOBAL.SPECIAL COMMENT :- TRUE; ) 


120 


*--* Other Software component" ( ECHO; 

GLOBAL.CURRENT. SETTINGS.THIRD ATTRIBUTE :- 
GLOBAL.ORGIN'val (10); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


*--* Part of product" ( ECHO; 

GLOBAL.CURRENT SETTINGS.FOURTH ATTRIBUTE :- 
GLOBAL .USAGE'val (0); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


UX External to product' f ECHO,; 

GLOBAL.CURRENT SETTINGS.FOURTH ATTRIBUTE :- 
GLOBAL.US AGE’ val (1); 

GLOBAL.SPECIAL_COMMENT := TRUE; } 


-- To include an estimated or planned value for executable, declarations, and or pragmas, the 
-- user will need to follow the following examples 

-- --* Estimated Executables => 2245, Declarations => 400, Pragmas => 14 

-- --* Estimated Exec => 2245, Dec => 400, Prag => 14 

-- --* Estimated E => 2245, D => 400, P => 14 


*--* Estimated or planned *.* ( ECHO; 
GLOBAL.CURRENT SETTINGS.FIFTH, ATTRIBUTE :- 
GLOBAL.DEVELOPMENT STATUS 'val (0); 
GLOBAL.SPECIAL COMMENT :- TRUE; 
GLOBAL.SPEC COMMENT LENGTH :- ada lex. dfa.vvtext'length; 
GLOBAL.SPEC. COMMENT STRING (1 .. 
GLOBAL.SPEC COMMENT. LENGTH) :- ada lex dfa.vvtext; 
GLOBAL.PARSE SPECIAL COMMENT (GLOBAL.ESTIMATED NUM, 
GLOBAL.SPEC COMMENT LENGTH, 
GLOBAL.SPEC COMMENT STRING); ) 


UX Designed' { ECHO; 

GLOBAL.CURRENT SETTINGS.FIFTH ATTRIBUTE : 
GLOBAL.DEVELOPMENT. STATUS 'val (1); 

GLOBAL.SPECIAL COMMENT := TRUE; } 


li 


“..ж Сойей” ( ЕСНО; 
GLOBAL.CURRENT SETTINGS.FIFTH ATTRIBUTE : 
GLOBAL.DEVELOPMENT STATUS val (2); 
GLOBAL.SPECIAL_COMMENT := TRUE; } 


*-—* Unit tests completed" ( ECHO; 

GLOBAL.CURRENT. SETTINGS.FIFTH, ATTRIBUTE :- 
GLOBAL.DEVELOPMENT. STATUS'val (3); 

GLOBAL.SPECIAL, COMMENT :- TRUE; ) 


"--* Integrated into components" ( ECHO; 

GLOBAL.CURRENT. SETTINGS.FIFTH ATTRIBUTE :- 
GLOBAL.DEVELOPMENT STATUS'val (4); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


121 


*--* Test readiness rev completed" ( ECHO; 

GLOBAL.CURRENT SETTINGS.FIFTH ATTRIBUTE:- 
GLOBAL.DEVELOPMENT STATUS'val (5); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


“__* CSCI completed" ( ECHO; 

GLOBAL.CURRENT SETTINGS.FIFTH, ATTRIBUTE : 
GLOBAL.DEVELOPMENT STATUS val (6); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


"--* System tests completed" ( ЕСНО; 

GLOBAL.CURRENT SETTINGS.FIFTH ATTRIBUTE : 
GLOBAL.DEVELOPMENT. STATUS'val (7); 

GLOBAL.SPECIAL COMMENT :- TRUE; ) 


— Checking for comments on their own line 


A[ N]*"-- “Жа ( ECHO; 
GLOBAL.THIRD CHAR :- ada lex dfa.yytext (3); 
GLOBAL.SPEC COMMENT LENGTH :- ada lex dfa.yytext' length; 
GLOBAL.SPEC COMMENT. STRING (1 .. 
GLOBAL.SPEC COMMENT LENGTH):- ada lex dfa.vvtext; 
GLOBAL.DETERMINE TVPE COMMENT 
(GLOBAL.SPEC COMMENT LENGTH, 
GLOBAL.THIRD CHAR, 
GLOBAL.SPEC COMMENT STRING); 
GLOBAL.ADD TO ARRAY; 
linenum; } 


-- Looking for a comment on a line with source code. 
-- Conditions: 
-- Actions: 
isse * ( ECHO; 
if GLOBAL.EXECLEVEL >0 ог 
GLOBAL.DECLEVEL 20 or 
GLOBAL.PRAGMALEVEL »0 then 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE'val (4), 1) :- TRUE; 
GLOBAL.FLAGS ARRAY (GLOBAL.STMT TYPE 'val (4), 2) := TRUE; 
else 
null; 
end if; ) 


( ECHO; 
text io.put line(?? lexical error" & ada, lex dfa.yytext & 27”); 
num, errors :- num errors + 1; } 


№22 


Na) { ЕСНО; 
GLOBAL.ADD TO ARRAY; 
linenum; ) 


%% 


with TEXT IO, 
ada tokens, 
GLOBAL, 
ada lex «Ға, 
TAE; 

use ada tokens; 


package ada lex is 


lines : positive := 1; 
num, errors : natural :- 0; 


procedure DECREASE DECLEVEL; 
procedure linenum; 
function yylex return token; 

end ada lex; 


package body ada lex is 


procedure DECREASE, DECLEVEL is 
begin 

GEOBAL.DECLEVEL :- 0; 
end DECREASE DECLEVEL; 


procedure linenum is 

begin 
text, io.put(integer' image(lines) & ':"); 
lines := lines + 1; 

end linenum; 


## 


end ada lex; 
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GLOBAL S.A 


-- *** TAE Plus Code Generator version V 5.1 
-- *** File: global s.a 
-- *** Generated: Apr 15 10:49:42 1993 


s 3k k ЖЕ k * k k k * k k k k k K 2 K KOR E K KR K OK K K K KOK K K K KOR KOK K KR K K KOK K KOR KOR 
ж 
-- * Global -- Package SPEC 
ж 
Ж жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


with X Windows; 
with Text IO; 
with TAE; 

use TAE; 
package Global is 


--| PURPOSE: 

--| This package is automatically “with’ed in to each panel package body. 
--| You can insert global variables here. 

--| 

--| INITIALIZATION EXCEPTIONS: (none) 
--| 

--| NOTES: (none) 

--| 

--| REGENERATED: 

--| This file is generated only once. 

--| 

--| CHANGE LOG: 

--| 15-Apr-93 TAE Generated 


--*_Programmed 


-- (+) begin added code 


tvpe МУ_УАГОЕ is array (1..1) of String (1..TAE.Tae_Taeconf.STRINGSIZE); 


SPECIAL COMMENT, 


COMMENT FLAG : boolean := false; 
SPEC COMMENT LENGTH, 
EXECLEVEL, 

DECLEVEL, 

PRAGMALEVEL : integer := 0; 
REMOVED_NUM : имерег:=-1; 
ESTIMATED_NUM : integer := L; 
THIRD_CHAR : character := ' $: 
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SPEC COMMENT STRING  : string (1 .. 1024) := (others => ° °); 


OUT FILE TYPE  : text io.file type; 
F : text 1o.file type; 
FILE LIST NAME. : String (1 .. 1024) := (others => ‘ ‘); 


type STMT_TYPE is (EXECUTABLE, DECLARATIONS, COMPILER_DIRECTIVES, 
CMTS_ON_OWN_LINE, CMTS_WITH_SRC_CODE, 
BANNERS_NON_BLANK_SPACERS, BLANK_EMPTY_CMTS, 
BLANK LINES); 


type HOW PRODUCED is (PROGRAMMED, GENERATED, COVERETED, 
COPIED, MODIFIED, REMOVED); 


type ORGIN is (NEW WORK, PREVIOUS VERSION, COTS, GFS, ANNOTHER, PRODUCT, 
VENDOR, SUPPLIED SPT LIB, VENDOR, SUPPLIED OS, 
LOCAL SUPPLIED LIB, COMMERCIAL LIB, REUSE LIB, 
OTHER, COMPONENT LIB); 
type USAGE is (PRIMARY PRODUCT, EXTERNAL); 
type DEVELOPMENT STATUS is (ESTIMATED, DESIGNED, CODED, UNIT TEST DONE, 
INTEGRATED, TEST READINESS REVIEW, 
CSCI COMPLETED, SYSTEM TESTS COMPLETED); 


type COUNT ARRAY TYPE is array (STMT TYPE, HOW PRODUCED, 
ORGIN, USAGE, DEVELOPMENT STATUS) of natural; 


type FLAGS. TYPE ARRAY is array (STMT TYPE, 1..2) of boolean; 
type PRIORITY TYPE ARRAY is array (1..8) of STMT TYPE; 
type ORDER, OF PRECEDENCE is range 1..8; 


type CURRENT SETTINGS TYPE is 


record 
FIRST ATTRIBUTE : STMT TYPE ‚= EXECUTABLE; 
SECOND ATTRIBUTE : HOW PRODUCED <= PROGRAMMED; 
THIRD_ATTRIBUTE : ORGIN : NEW WORK; 
FOURTH ATTRIBUTE : USAGE :: PRIMARY PRODUCT; 


FIFTH, ATTRIBUTE : DEVELOPMENT. STATUS := SYSTEM TESTS COMPLETED; 
end record; 


type STMT TOTALS TYPE is 
record 
EXEC TOTAL, 
DEC TOTAL, 
PRAGMA TOTAL, 
CMTS ON OWN TOTAL, 
CMTS W SRC TOTAL, 
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BANNER CMTS TOTAL, 

EMPTV CMTS TOTAL, 

BLANK LINES TOTAL  .: natural := 0; 
end record; 


type HOW PRODUCED TYPE is 
record 
PROGRAMMED TOTAL, 
GENERATED TOTAL, 
CONVERTED. TOTAL, 
COPIED TOTAL, 
MODIFIED TOTAL, 
REMOVED TOTAL : natural := 0; 
end record; 


type ORGIN_TYPE is 

record 
NEW_WORK_TOTAL, 
PREVIOUS_VERSION_TOTAL, 
COTS_TOTAL, 
GFS_TOTAL, 
ANNOTHER_PRODUCT_TOTAL, 
VS_SPT_LIB_TOTAL, 
VS_SPT_OS_TOTAL, 
LOCAL_SUPPLIED_LIB_TOTAL, 
COMMERCIAL LIB TOTAL, 
REUSE LIB TOTAL, 
OTHER COMPONENT TOTAL  : natural := 0; 

end record; 


type USAGE. TYPE is 


record 
PRIMARY PRODUCT. TOTAL, 
EXTERNAL TOTAL : natural := 0; 
end record; 


type DEVELOPMENT STATUS TYPE is 
record 
ESTIMATED TOTAL, 
DESIGNED TOTAL, 
CODED TOTAL, 
UNIT TEST DONE TOTAL, 
INTEGRATED TOTAL, 
TEST READINESS REVIEW TOTAL, 
CSCI COMPLETED TOTAL, 
SYSTEM TEST TOTAL : natural := 0; 
end record; 


type COUNT TOTALS TYPE is 


record 
STMT NUMS : STMT TOTALS TYPE; 
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PRODUCED NUMS  : HOW PRODUCED TYPE; 


ORGIN NUMS : ORGIN TVPE; 
USAGE NUMS : USAGE TVPE; 
DEVELOPED NUMS  : DEVELOPMENT STATUS TYPE; 
end record; 

type panel 2 is 

record 
report a : boolean := true; 
report_b : boolean := false; 
report_c : boolean := false; 
report_d : boolean := false; 
report_e : boolean := false; 
report_f : boolean :z false; 
next scrn : boolean :- false; 
out file name : mv. value; 
in file name : my, value; 
requestor : mv. value; 
report, heading : my. value; 

end record; 

type panel 3 is 

record 
line 1 : boolean := true; 
line_3 : boolean := true; 
line_4 : boolean := true; 
line_6 : boolean := false; 
line_7 : boolean :- false; 
line 8 : boolean := false; 
line_9 : boolean := false; 
line_10 : boolean := false; 
line 1 int : TAE.TAEINT := 1; 
line 3 int : TAE.TAEINT :- 2; 
line 4 int : TAETAENT :: 3: 
line 6 int : TAE.TAEINT :2 4; 
line 7 int : TAE.TAEINT :z 5; 
line 8 int : TAE.TAEINT := 6; 
line_9_int > TAE.TAEINT := 7: 
line_10_int : TAE.TAEINT :- 8; 
def data array : boolean := false; 
end record; 

type panel_4 is 

record 
line_1 : boolean := true; 
line_2 : boolean := true; 
line_3 : boolean := true; 
line_4 : boolean := true; 
line 5 : boolean := true; 
line_6 : boolean := false; 
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def data arrav : boolean := false; 
end record; 
type panel_S is 
record 
line_1 : boolean :< шие; 
line 3 : boolean := true; 
line 4 : boolean := true; 
line_5 : boolean := true; 
line_6 : boolean := true; 
line_7 : boolean :- false; 
line 8 : boolean := false; 
line_9 : boolean := true; 
line_10 : boolean := true; 
line_11 : boolean :z true; 
line. 12 : boolean := true; 
def data array : boolean := false; 
end record; 
type panel_6 is 
record 
line_1 : boolean := true; 
line_2 : boolean := false; 
DEL_OPTION : MY VALUE; 
def data array : boolean := false; 
end record; 
type panel_9 is 
record 
line_1 : boolean :- false; 
line. 2 : boolean := false; 
line_3 : boolean := false; 
line_4 : boolean := false; 
line_5 : boolean := false; 
line_6 : boolean :z false; 
line. 7 : boolean :- false; 
line 8 : boolean := true; 
def_data_array : boolean := false; 
end record; 


tvpe panel 10 is 


record 
line 1 
line 2 
line 3 
line 4 
line 5 


: boolean 
: boolean 
: boolean 
: boolean 
: boolean 


= true; 
:= шие; 
:= Шие; 
:z true; 
:= true; 
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line 6 : boolean :- true; 


ше 7 : boolean := шие; 

line 8 : boolean :2 true; 

line 9 : boolean := true; 
line_10 : boolean := true; 
line_11 : boolean :z true; 
line 12 : boolean :- true; 
line 13 : boolean := true; 
line_1_int : TAE.TAEINT := 1; 
line_2_int : TAE.TAEINT := 1; 
line 3 int : TAE.TAEINT := 3; 
line_4_int : TAE.TAEINT := 1; 
line 5 int : TAE.TAEINT :- 3; 
line 6 int : TAE.TAEINT := 1; 
line_7_int : TAE.TAEINT := 1; 
line 8 int : TAE.TAEINT := 1; 
line_9_int : TAETAEINT :- 3; 
line 10 int : TAE.TAEINT :- І; 
line 11 int . ТАЕ.ТАЕПМТ := 1; 
line 12 int : TAETAENT :-3; 
line 13 int : TAETAEINT :-1; 
def data arrav : boolean :z false; 

end record; 


type panel 11 is 


record 
line 1 : boolean := true; 
line 2 : boolean := true; 
line_3 : boolean := true; 
line_4 : boolean := true; 
Іле 5 : boolean := true; 
line_6 : boolean := true; 
line_1_int : TAETAEINT := 3; 
line_2_int : TAETAEINT := 1; 
line_3_int : TAE.TAEINT := 3; 
line_4_int : TAE.TAEINT := 1; 
line 5 int : TAE.TAEINT := 3; 
line_6_int : TAE.TAEINT :z 4; 
end record; 
type flags is 
record 
panel2 : panel 2; 
panel3 : panel_3; 
рапе14 : panel 4; 
panel5 : panel 5; 
panel6 : panel 6; 
рапе19 : panel 9; 
panel10 : panel 10; 
panelll : panel 11; 
end record; 
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record. flags : flags; 


record flags A : flags; 
record flags B : flags; 
record flags C : flags; 
record, flags D : flags; 
record flags E : flags; 
record, flags F : flags; 


COUNT ARRAY A 


COUNT ARRAY B 


COUNT ARRAY C 


COUNT ARRAY D 


COUNT ARRAY E 


COUNT ARRAY F 


: COUNT ARRAY TYPE :z (others => (others — 
(others —» (others 2» 
(others => 0))))); 


: COUNT ARRAY TYPE :z (others => (others => 


(others => (others => 
(others => 0))))); 


: COUNT_ARRAY_TYPE := (others => (others => 
(others => (others => 
(others => 0))))); 


: COUNT_ARRAY_TYPE := (others => (others => 
(others => (others => 
(others => 0))))); 


: COUNT ARRAV TVPE := (others => (others => 


(others => (others => 
(others => 0))))); 


: COUNT ARRAY TYPE := (others => (others => 


(others => (Others => 
(others => 0))))); 


FLAGS_ARRAY : FLAGS TYPE ARRAY; 
PRIORITY ARRAY A E : PRIORITY TYPE ARRAY; 


PRIORITY ARRAY F 
CURRENT SETTINGS 


COUNT TOTALS š 
COUNT_TOTALS_A 
COUNT TOTALS B 
COUNT TOTALS C 
COUNT TOTALS D 
COUNT TOTALS E 
COUNT TOTALS F 


TOTAL COUNTED A, 
TOTAL COUNTED B, 
TOTAL. COUNTED C, 
TOTAL COUNTED D, 


: PRIORITY TYPE ARRAY; 
: CURRENT SETTINGS ТҮРЕ; 


COUNT TOTALS TYPE; 

: COUNT TOTALS TYPE; 
: COUNT TOTALS TYPE; 
: COUNT TOTALS TYPE; 
: COUNT TOTALS TYPE; 
: COUNT TOTALS TYPE; 
: COUNT TOTALS TYPE; 
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TOTAL COUNTED E, 
TOTAL COUNTED F. : natural:- 0; 


-- (-) end added code 
--* Generated 
package Taefloat IO is new Text IO.Float IO (TAE.Taefloat); 


Default Display Id: X Windows.Display; 


-- procedure CHECK, FLAG, SETTINGS; 


Фоофовофофо фо офф о Фо фо фо Фо фо Фо Фо ооо фо фо фо фо во во о фо фо ооо о офофофоофоо 


хофофо фо оф оо фо оо оо ооо ооо р о ооо р оо оо фо фо оо фо фо ооо фо фо ооо фо фо фохфоффох 


function Application Done 
return Boolean; 


--| PURPOSE: 

--| This function returns true if a “quit” event handler has called 
--| Set_Application_Done, otherwise it returns false. 

--| 

--| EXCEPTIONS: (none) 

--| 

--| NOTES: (none) 


--. Set Application Done -- Subprogram SPEC 
procedure Set, Application Done; 
--| PURPOSE: 


--| This procedure can be used by an event handler, typically a “quit” 
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--| button, to signal the end of the application. 
--| 

--| EXCEPTIONS: (none) 

--| 

--| NOTES: (none) 


еве"еего«вегееееееееееееееееевеееФеееееееоеое%ее 900909464400 еееееееевевеееоежФееееее 


function Switch Flag (FLAG IN : in boolean) return bcolean; 


--| PURPOSE: 

--| This procedure will be used when the user changes the default settings 
--| for the custom format report. 

--| 

- EXCEPTIONS: (none) 

--| 

--| NOTES: (none) 


function CHECK REPORT A E return boolean; 


function CHECK, REPORT F return boolean; 


function COUNT. CLARIFICATION (BOOLEAN. IN : in BOOLEAN) return BOOLEAN; 
a 
fa 
A 
e 


procedure OPEN OUT FILE; 


procedure CLOSE OUT FILE; 


function FIND LENGTH (FILELIST : in GLOBAL.MY VALUE) return integer; 


procedure ADD TO ARRAY; 


procedure COUNT LINE (IN RECORD :in CURRENT SETTINGS TYPE; 
ARRAY TYPE:inout COUNT ARRAY TYPE; 
ADD NUMBER:in natural :- 1); 


procedure DETERMINE WHICH, ARRAY (IN RECORD : in 
CURRENT SETTINGS TYPE; 
ADD NUMBER :in natural :- 1 ); 


procedure PARSE SPECIAL COMMENT (IN NUM  :in integer; 
IN LENGTH : in integer; 
IN STRING : in string); 


procedure DETERMINE TYPE COMMENT (IN BANNER, LENGTH : in out integer; 
IN BANNER CHAR  : in out character; 
IN BANNER STRING : in out STRING); 


end Global; 
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GLOBAL B.A 


-- *** TAE Plus Code Generator version V5.1 
-- *** File: global_b.a 
-- *** Generated: Apr 15 10:49:42 1993 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
ж 


-- * Global -- Package BODY 


ж 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


with TEXT IO; 
use TEXT IO; 
package body Global is 


--| NOTES: (none) 

--| 

--| REGENERATED: 

--| This file is generated only once. 
--| 

--| CHANGE LOG: 

--| 15-Арг-93 TAE Generated 
--* Programmed 


package TAE INTEGER IN. OUT is new integer. io (TAE.TAEINT); 
use TAE INTEGER IN OUT; 


package INTEGER, IN OUT is new integer. 10 (integer); 
use INTEGER. IN OUT; 


package ENUMERATION IN OUT is new ENUMERATION IO (STMT TYPE); 
use ENUMERATION IN OUT; 


--* Generated 


Is Application Done : Boolean :z FALSE; 


"e990909090900000000065000920000909090000060€0€00000000000000000000000000000000000000 


Ф-еееееееееееееоегегееегеееееееееееегееесеееееееееееееоеоееоееееесеоееееге 


function Application бопе 
return Boolean is 


--| NOTES: (none) 
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begin — Application Done 
return Is. Application Done; 


end Application Done; 


--. Set Application Done -- Subprogram BODY 
procedure Set. Application Done is 
--| NOTES: (none) 
begin -- Set Application Done 
Is Application Done : TRUE; 


end Set. Application Done; 


--* Programmed 


ФФОеееееееееееееееееееФееееееееееееееееФеееоеееееееееееееееоеееевееееееее 


$0€606090909099009009009090000000000000909000000090000000000000600000000900000000€9 


function Switch Flag (FLAG. IN : in boolean) return boolean is 


--| PURPOSE: 

--| This procedure will be used when the user changes the default settings 
--| for the custom format report. 

--| 

--| EXCEPTIONS: (none) 

--| 

--| NOTES: (none) 


TEMP FLAG  :boolean; 


begin 
if FLAG IN then 
TEMP FLAG := false; 
else 
TEMP FLAG := true; 
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end if; 
retum TEMP FLAG; 


end Switch. Flag; 


function CHECK REPORT. A E return boolean is 
BOOLEAN FLAG : boolean := FALSE; 
begin 


if RECORD_FLAGS.PANEL2.REPORT_A or 
RECORD FLAGS.PANEL2.REPORT. B or 
RECORD FLAGS.PANEL2.REPORT. C or 
RECORD FLAGS.PANEL2.REPORT. D or 
RECORD FLAGS.PANEL2.REPORT E then 
BOOLEAN FLAG := TRUE; 
end if; 


return BOOLEAN FLAG; 


end CHECK REPORT A E; 


function CHECK. REPORT. F return boolean 15 
BOOLEAN FLAG : boolean := FALSE; 
begin 
if RECORD FLAGS.PANEL2.REPORT F then 
BOOLEAN FLAG :- TRUE; 
end if; 
return BOOLEAN FLAG; 


end CHECK REPORT F; 


function COUNT STMT TVPE (S :in STMT TYPE; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 


TEMP COUNT .: integer :- 0; 
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Беріп 


for Hin HOW PRODUCED' FIRST .. HOW PRODUCED'LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for U in USAGE'FIRST .. USAGE'LAST loop 
for Din DEVELOPMENT STATUS'FIRST.. DEVELOPMENT STATUS'LAST loop 
TEMP COUNT : TEMP COUNT «* IN COUNT ARRAY (S, H, O,U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT STMT TYPE; 


function COUNT. HOW PRODUCED(H  . :in HOW PRODUCED; 
IN. COUNT. ARRAY : in COUNT. ARRAY. TYPE) return integer is 


TEMP. COUNT : integer :- 0; 
begin 


for Sin STMT TYPE'FIRST .. STMT TYPE'LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for U in USAGE' FIRST .. USAGE'LAST loop 
for Din DEVELOPMENT STATUS 'FIRST .. DEVELOPMENT. STATUS 'LAST loop 
TEMP COUNT :- TEMP COUNT-IN COUNT ARRAS (S,H,O, U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


retun TEMP COUNT; 
end COUNT HOW PRODUCED; 
function COUNT. ORGIN (O : in ORGIN; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 
TEMP COUNT : integer := 0; 
begin 
for Sin STMT TYPE'FIRST..STMT TYPE'LAST loop 


for Hin HOW PRODUCED'FIRST .. HOW PRODUCED'LAST loop 
for U in USAGE' FIRST .. USAGE'LAST loop 
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for Din DEVELOPMENT STATUS'FIRST .. DEVELOPMENT STATUS'LAST loop 
TEMP COUNT : TEMP COUNT - IN COUNT ARRAX (S, H, O, U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT ORGIN; 


function COUNT. USAGE (U : in USAGE; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 


TEMP COUNT : integer := 0; 
begin 


for S in STMT_TYPE’FIRST .. STMT_TYPE’LAST loop 
for Hin HOW PRODUCED'FIRST .. HOW PRODUCED' LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for Din DEVELOPMENT. STATUS'FIRST .. DEVELOPMENT. STATUS LAST loop 
TEMP COUNT :: TEMP COUNT « IN COUNT ARRAY (S, H, O,U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT, USAGE; 


function COUNT DEVELOPMENT. STATUS (D :in DEVELOPMENT STATUS; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) retum integer is 


TEMP, COUNT : integer := 0; 
begin 


for S in STMT TYPE'FIRST .. STMT TYPE'LAST loop 
for Hin HOW PRODUCED'FIRST .. HOW PRODUCED'LAST loop 
for O in ORGIN' FIRST .. ORGIN'LAST loop 
for U in USAGE'FIRST .. USAGE'LAST loop 
TEMP COUNT :- TEMP COUNT - IN COUNT ARRAY (S, H,O, U, D); 
end loop; 
end loop; 
end loop; 
end loop; 
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return TEMP COUNT; 


end COUNT DEVELOPMENT STATUS; 


procedure COUNT ATTRIBUTE ONE (IN RECORD FLAGS:in FLAGS; 
IN COUNT TOTALS : in out COUNT. TOTALS TYPE; 
IN ARRAY :in COUNT ARRAY TYPE) is 

begin 


if IN RECORD FLAGS.PANEL3.line 1 then 
IN COUNT TOTALS.STMT NUMS.EXEC TOTAL : COUNT STMT TYPE 
(STMT. TYPE'val (0), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line 3 then 
IN COUNT TOTALS.STMT NUMS.DEC TOTAL : COUNT STMT TYPE 
(STMT  TYPE'val (1), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL23.line 4 then 
IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL : COUNT STMT TYPE 
(STMT TYPE'val (2), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line 6 then 
IN COUNT TOTALS.STMT NUMS.CMTS ON OWN TOTAL:- 
COUNT STMT TYPE (STMT TYPE'val (3, IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line 7 then 
IN COUNT TOTALS.STMT NUMS.CMTS W SRC TOTAL :- 
COUNT STMT TYPE (STMT TYPE'val (4), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line 8 then 
IN COUNT TOTALS.STMT NUMS.BANNER CMTS TOTAL :- 
COUNT_STMT_TYPE (STMT_TYPE’ val (5), IN_ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line 9 then 
IN COUNT TOTALS.STMT NUMS.EMPTV CMTS TOTAL :- 
COUNT STMT TYPE (STMT TYPE'val (6), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL23.line. 10 then 
IN COUNT TOTALS.STMT NUMS.BLANK LINES TOTAL :- 
COUNT STMT TYPE (STMT TYPE'val (7), IN ARRAY); 
end if; 


end COUNT ATTRIBUTE ONE; 


procedure COUNT ATTRIBUTE TWO (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
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IN ARRAV :ш COUNT_ARRAY_TYPE) is 
begin 


if IN RECORD FLAGS.PANELA.line 1 then 
IN COUNT TOTALS.PRODUCED NUMS.PROGRAMMED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED"'val (0), IN ARRAY); 
end 1f; 
if IN RECORD FLAGS.PANELA line 2 then 
IN COUNT TOTALS.PRODUCED NUMS.GENERATED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED'"'val (1), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELA.line 3 then 
IN COUNT TOTALS.PRODUCED NUMS.CONVERTED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED'val (2), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELA.line 4 then 
IN COUNT TOTALS.PRODUCED NUMS.COPIED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED'val (3), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELA. line 5 then 
IN COUNT TOTALS.PRODUCED NUMS.MODIFIED TOTAL :z 
COUNT HOW PRODUCED (HOW PRODUCED'val (4), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELA.line 6 then 
IN COUNT TOTALS.PRODUCED NUMS.REMOVED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED'val (5), IN ARRAY); 
end 1f; 


end COUNT ATTRIBUTE TWO; 


procedure COUNT ATTRIBUTE THREE (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
IN ARRAY :in COUNT ARRAY TYPE) is 

begin 


if IN RECORD FLAGS.PANELS.line 1 then 
IN COUNT TOTALS.ORGIN NUMS.NEW WORK TOTAL : COUNT ORGIN 
(ORGIN'val (0), IN ARRAY); 
end 1f; 
if IN RECORD FLAGS.PANELS.line. 3 then 
IN COUNT TOTALS.ORGIN NUMS.PREVIOUS VERSION TOTAL :- 
COUNT ORGIN (ORGIN'val (1), IN. ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 4 then 
IN COUNT TOTALS.ORGIN NUMS.COTS TOTAL : COUNT ORGIN (ORGIN'val (2), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 5 then 
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IN COUNT TOTALS.ORGIN NUMS.GFS TOTAL :- COUNT ORGIN (ORGIN val (3), 
IN ARRAV); 
end if; 
if IN RECORD FLAGS.PANEL5.line 6 then 
IN COUNT TOTALS.ORGIN. NUMS.ANNOTHER, PRODUCT TOTAL :- 
COUNT ORGIN (ORGIN'val (4), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line. 7 then 
IN COUNT. TOTALS.ORGIN. NUMS.VS SPT LIB. TOTAL :- COUNT. ORGIN 
(ORGIN'val (5), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line. 8 then 
IN COUNT TOTALS.ORGIN NUMS.VS SPT OS TOTAL :- COUNT ORGIN 
(ORGIN'val (6), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 9 then 
IN COUNT TOTALS.ORGIN NUMS.LOCAL SUPPLIED LIB TOTAL :- 
COUNT. ORGIN (ORGIN'val (7), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL5.line 10 then 
IN COUNT TOTALS.ORGIN NUMS.COMMERCIAL LIB TOTAL :- 
COUNT. ORGIN (ORGIN'val (8), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 11 then 
IN COUNT TOTALS.ORGIN NUMS.REUSE LIB TOTAL : COUNT ORGIN 
(ORGIN'val (9, IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELsS.line 12 then 
IN COUNT TOTALS.ORGIN NUMS.OTHER COMPONENT TOTAL :z 
COUNT ORGIN (ORGIN'val (10), IN ARRAY); 
end i£; 


end COUNT. ATTRIBUTE THREE; 


procedure COUNT. ATTRIBUTE FOUR (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
IN ARRAY :in COUNT ARRAY TYPE) is 

begin 


if IN RECORD FLAGS.PANEL6O.line 1 then 
IN COUNT TOTALS.USAGE NUMS.PRIMARY PRODUCT TOTAL :- 
COUNT USAGE (USAGE'val (0), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL6.line 2 then 
IN COUNT TOTALS.USAGE NUMS.EXTERNAL TOTAL :- COUNT USAGE 
(USAGE'val (1, IN ARRAY); 
end if; 
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end COUNT. ATTRIBUTE FOUR; 


procedure COUNT ATTRIBUTE FIVE (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS :in out COUNT TOTALS TYPE; 
IN ARRAY :in COUNT ARRAY TYPE)is 

begin 


if IN RECORD FLAGS.PANELO.line 1 then 
IN COUNT TOTALS.DEVELOPED NUMS.ESTIMATED TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS 'val (0), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO.line 2 then 
IN COUNT TOTALS.DEVELOPED NUMS.DESIGNED TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS val (1), 
IN ARRAY); 
end if; 
if IN RECORD. FLAGS.PANELO.line 3 then 
IN COUNT TOTALS.DEVELOPED NUMS.CODED. TOTAL := 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS ' val (2), 
IN ARRAY); 
end if; 
i£ IN RECORD FLAGS.PANELO.line 4 then 
IN COUNT TOTALS.DEVELOPED NUMS.UNIT TEST DONE TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS 'val (3), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO.line 5 then 
IN COUNT TOTALS.DEVELOPED NUMS.INTEGRATED TOTAL :z 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS ' val (4), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO.line 6 then 
IN COUNT TOTALS.DEVELOPED NUMS.TEST READINESS REVIEW TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT. STATUS' val (5), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO.line 7 then 
IN COUNT TOTALS.DEVELOPED NUMS.CSCI COMPLETED TOTAL :- 
COUNT DEVELOPMENT. STATUS (DEVELOPMENT. STATUS val (6), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO?9.line 8 then 
IN COUNT TOTALS.DEVELOPED NUMS.SYSTEM TEST TOTAL :- 
COUNT DEVELOPMENT. STATUS (DEVELOPMENT. STATUS'val (7), 
IN ARRAY); 
end if; 


end COUNT_ATTRIBUTE_FIVE; 
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function COUNT CLARIFICATION (BOOLEAN IN : in BOOLEAN) return boolean is 
TEMP : boolean := FALSE; 
begin 


if BOOLEAN_IN then 
TEMP := TRUE; 
else 
TEMP := FALSE; 
end if; 


return TEMP; 


end COUNT_CLARIFICATION; 


function FIND LENGTH (FILELIST : in GLOBAL.MY VALUE) return integer is 


TEMP NUMBER . : integer := 0; 
TEMP CHAR : character:z ' 5; 


begin 


for I in FILELIST range loop 
for J in 1 .. 1024 loop 
if FILELIST (I)(J) / TEMP CHAR then 
TEMP NUMBER := TEMP NUMBER + 1; 
else 
exit; 
end if; 
end loop; 
end loop; 


return TEMP NUMBER; 


end FIND LENGTH; 


procedure OPEN OUT FILE is 
OUT FILE NAME : GLOBAL.MV VALUE :- 


GLOBAL.RECORD FLAGS.PANEL2.OUT FILE NAME; 
LENGTH : integer; 
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Беріп 
LENGTH :- FIND LENGTH (OUT FILE NAME); 
FILE LIST NAME(1..LENGTH) :z OUT FILE NAME (1) (1..LENGTH); 
create (OUT. FILE TYPE, out file, FILE LIST NAME (1..LENGTH)); 


end OPEN OUT FILE; 


procedure CLOSE OUT FILE is 


OUT FILE NAME : GLOBAL.MV VALUE :- 
GLOBAL.RECORD FLAGS.PANEL2.OUT FILE NAME; 
LENGTH : integer; 


begin 


LENGTH :- FIND LENGTH (OUT. FILE NAME); 
FILE LIST NAME(1..LENGTH) : OUT FILE NAME (1) (1..LENGTH); 
close (OUT. FILE TYPE); 


end CLOSE OUT FILE; 


procedure DETERMINE TYPE COMMENT (IN BANNER LENGTH : in out integer; 
IN BANNER, CHAR :in out character; 
IN BANNER STRING : in out STRING) is 


-- Function to determine if a particular comment is 

-- a banner comment. 

function BANNER, FOUND (BANNER LENGTH : in integer; 
BANNER CHAR  : in character; 
BANNER STRING : in STRING) return boolean is 


FIRST : integer := 1; 
BANNER : boolean :z FALSE; 
BLANK SPACE : character := ‘ ‘; 
HYPHEN : character := ‘-’: 


BANNER CHARS : string (1..4) := (others => ‘ ‘); 
COUNT LOOP  : integer := 0; 
REPEAT CHARS : boolean := FALSE; 


begin 
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for lin BANNER STRING 'first.. BANNER STRING'last- 1 loop 


if BANNER STRING (1) - '-^ and 
BANNER STRING (I-1) 2 —-' then 
BANNER. CHARS :- BANNER, STRING (1:2. 1-5); 


for Jin BANNER, STRING 'first*142 .. Banner length - 4 loop 


if BANNER, STRING (7) BANNER, CHARS (1) or 
BANNER STRING (7) BANNER, CHARS (2) or 
BANNER, STRING (J) BANNER, CHARS (3) or 
BANNER, STRING (J) BANNER, CHARS (4) or 
BANNER, STRING (J) BLANK, SPACE then 
COUNT LOOP .:- COUNT LOOP + 1; 
if COUNT. LOOP » 4 then 
BANNER := TRUE; 
end if; 
else 
BANNER := FALSE; 
exit; 
end if; 
if count_loop < banner_length - 1 then 
null; 
else 
exit; 
end if; 
end loop; 


exit; 
end if; 


end loop; 
return BANNER; 


end BANNER, FOUND; 


begin 


-- Checking for banner comments. 
- CONDITIONS: 
-- Banner characters must be non-blank; 
- Banner characters must be either the third character from the 
-- left, or blank charactor. 
-- ACTION: 
-- Set the start and stop flags to true for Banner comments. 
if BANNER, FOUND (IN BANNER, LENGTH, IN BANNER, CHAR, 
IN BANNER, STRING) then 
FLAGS ARRAY (STMT TYPE'val (5), 1) :- TRUE; 
FLAGS ARRAY (STMT TYPE ' val (5), 2) :- TRUE; 
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-- Checking for comments on own line. 
-- Conditions: 
-- Start flags for Executable, Declaration, and or Pragma must not be 
-- Set to true. 
-- ACTIONS: 
-- Set start and stop flags to true for Comments on own line. 
else 
FLAGS ARRAY (STMT. TYPE'val (3), 1) :z TRUE; 
FLAGS ARRAY (STMT TYPE'val (3), 2) :z TRUE; 
end if; 


end DETERMINE_TYPE_COMMENT; 


function CHECKED_OKAY_A (IN_CURRENT_SETTINGS : CURRENT_SETTINGS_TYPE) 
return boolean is 


OKAY : boolean := TRUE; 
begin 


case IN CURRENT SETTINGS.FIRST ATTRIBUTE is 
when STMT TVPE'VAL (3)I STMT TVPE'VAL (4)I STMT TXPE'VAL(S)I 
STMT TYPE'VAL (6)| STMT TYPE'VAL (7) 2» 
OKAY :- FALSE; 
when others 2» 
null; 
end case; 


case IN CURRENT. SETTINGS.SECOND ATTRIBUTE is 
when HOW PRODUCED'VAL (5) => 
OKAY :- FALSE; 
when others 2» 
null; 
end case; 


case IN CURRENT SETTINGS.THIRD ATTRIBUTE is 
when ORGIN' VAL (5) | ORGIN' VAL (6) 2» 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FOURTH ATTRIBUTE is 
when USAGE’ VAL (1) 2» 
OKAY := FALSE; 
when others => 
null; 
end case; 
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case IN CURRENT SETTINGS.FIFTH ATTRIBUTE is 
when DEVELOPMENT. STATUS'VAL (0)I DEVELOPMENT STATUS'VAL(I)I 
DEVELOPMENT STATUS'VAL (2) | DEVELOPMENT. STATUS'VAL (3)! 
DEVELOPMENT STATUS'VAL (4) | DEVELOPMENT STATUS'VAL (5)1 
DEVELOPMENT STATUS'VAL (6) 2» 
OKAY := FALSE; 
when others => 
null; 
end case; 


return OKAY; 


end CHECKED OKAY A; 


function CHECKED OKAY B (IN CURRENT SETTINGS : CURRENT. SETTINGS TYPE) 
return boolean is 


OKAY : boolean := TRUE; 
begin 


case IN CURRENT SETTINGS.FIRST ATTRIBUTE is 
when STMT_TYPE’ VAL (3) |STMT_TYPE’ VAL (4) | STMT_TYPE’VAL (5) | 
STMT_TYPE’ VAL (6) |STMT_TYPE’VAL (7) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.THIRD ATTRIBUTE is 
when ORGIN’ VAL (5) | ORGIN'VAL (6) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FOURTH ATTRIBUTE is 
when USAGE’ VAL (1) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FIFTH ATTRIBUTE is 
when DEVELOPMENT STATUS'VAL (0) | DEVELOPMENT. STATUS' VAL (1) => 
OKAY := FALSE; 
when others => 
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null; 
end case; 


return OKAV; 


end CHECKED OKAY B; 


function CHECKED OKAY C (IN CURRENT SETTINGS : CURRENT SETTINGS TYPE) 
return boolean is 


OKAY : boolean := TRUE; 
begin 


case IN CURRENT SETTINGS.FIRST ATTRIBUTE is 
when STMT TYPE'VAL (5) | STMT TYPE'VAL (6)| STMT TYPE'VAL (7) 2 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.THIRD ATTRIBUTE is 
when ORGIN’ VAL (5) | ORGIN'VAL (6) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FOURTH ATTRIBUTE is 
when USAGE’ VAL (1) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FIFTH ATTRIBUTE is 
when DEVELOPMENT STATUS'VAL (0)| DEVELOPMENT STATUS'VAL (1)! 
DEVELOPMENT STATUS'VAL (2) | DEVELOPMENT, STATUS'VAL (3)1 
DEVELOPMENT STATUS'VAL (4) | DEVELOPMENT STATUS'VAL (5)1 
DEVELOPMENT STATUS'VAL (6) => 
OKAY :- FALSE; 
when others 2» 
null; 
end case; 


return OKAY; 


end CHECKED OKAY C; 
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function CHECKED OKAY D (IN CURRENT SETTINGS : CURRENT SETTINGS TYPE) 
return boolean is 


OKAY : boolean :z TRUE; 
begin 


case IN CURRENT. SETTINGS.FIRST. ATTRIBUTE is 
when STMT_TYPE’ VAL (3) |STMT_TYPE’ VAL (4)! STMT_TYPE’ VAL (5) | 
STMT_TYPE’VAL (6) |STMT_TYPE’VAL (7) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.THIRD ATTRIBUTE is 
when ORGIN'VAL (5)! ORGIN'VAL (6) => 
OKAY : FALSE; 
when others 2» 
null; 
end case; 


case IN CURRENT SETTINGS.FOURTH ATTRIBUTE is 
when USAGE'VAL (1) 2» 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT_SETTINGS.FIFTH_ATTRIBUTE is 
when DEVELOPMENT_STATUS’VAL (0) | DEVELOPMENT_STATUS’VAL (1) | 
DEVELOPMENT_STATUS’ VAL (2) |DEVELOPMENT_STATUS’VAL (3) | 
DEVELOPMENT_STATUS’ VAL (4) | DEVELOPMENT_STATUS’ VAL (5) | 
DEVELOPMENT_STATUS’ VAL (6) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


return OKAY; 


end CHECKED OKAY D; 


function CHECKED OKAY E (IN CURRENT. SETTINGS : CURRENT SETTINGS TYPE) 
return boolean is 
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OKAY : boolean := TRUE; 
begin 


case IN CURRENT SETTINGS.FIRST ATTRIBUTE is 
when STMT_TYPE’ VAL (5) |STMT_TYPE’ VAL (6) | STMT_TYPE’ VAL (7) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.THIRD ATTRIBUTE is 
when ORGIN'VAL (5) | ORGIN'VAL (6) 2» 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FOURTH ATTRIBUTE is 
when USAGE'VAL (1) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


case IN CURRENT SETTINGS.FIFTH ATTRIBUTE is 
when DEVELOPMENT STATUS'VAL (O0)I DEVELOPMENT. STATUS'VAL (ID)I 
DEVELOPMENT STATUS'VAL (2) |ID DEVELOPMENT. STATUS'VAL (3)1l 
DEVELOPMENT STATUS'VAL (4)! DEVELOPMENT STATUS' VAL (5) | 
DEVELOPMENT STATUS'VAL (6) => 
OKAY := FALSE; 
when others => 
null; 
end case; 


return OKAY; 


end CHECKED OKAY E; 


function CHECKED OKAY Е (IN CURRENT. SETTINGS : CURRENT. SETTINGS, TYPE) 
return boolean is 


OKAY : boolean := TRUE; 


begin 
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case IN CURRENT SETTINGS.FIRST ATTRIBUTE is 
when STMT TYPE'VAL (0) 2» 
if not GLOBAL.RECORD FLAGS F.PANEL3.LINE 1 then 
OKAY := FALSE: 
end if; 
when STMT_TYPE’VAL (1) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_3 then 
OKAY := FALSE; 
end if; 
when STMT_TYPE’ VAL (2) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_4 then 
OKAY := FALSE; 
end if; 
when STMT_TYPE’ VAL (3) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_6 then 
OKAY := FALSE; 
end if; 
when STMT_TYPE’ VAL (4) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_7 then 
OKAY := FALSE; 
end if; 
when STMT_TYPE’ VAL (5) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_8 then 
OKAY := FALSE; 
end if; 
when STMT_TYPE’ VAL (6) => 
if not GLOBAL.RECORD FLAGS. F.PANEL3.LINE, 9 then 
OKAY := FALSE; 
end if; 
when STMT_TYPE’ VAL (7) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_10 then 
OKAY := FALSE; 
end if; 
end case; 


case IN CURRENT SETTINGS.SECOND ATTRIBUTE is 
when HOW PRODUCED'VAL (0) 2» 
if not GLOBAL.RECORD FLAGS F.PANELA.LINE 1 then 
OKAY :- FALSE; 
end if; 
when HOW PRODUCED'VAL (1) 2» 
if not GLOBAL.RECORD FLAGS F.PANELA.LINE 2 then 
OKAY := FALSE; 
end if; 
when HOW_PRODUCED’ VAL (2) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL4.LINE_3 then 
OKAY := FALSE; 
end if; 
when HOW PRODUCED'VAL (3) => 
if not GQLOBAL. RECORD FLAGS F.PANELA LINE 4 then 
OKAY := FALSE; 
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end if; 
when HOW PRODUCED'VAL (4) => 
if not GLOBAL.RECORD FLAGS. F.PANELA.LINE. 5 then 
OKAY := FALSE; 
end if; 
when HOW PRODUCED'VAL (5) => 
if not GLOBAL.RECORD FLAGS F.PANELA.LINE 6 then 
OKAY :z FALSE; 
end if; 
end case; 


case IN CURRENT_SETTINGS.THIRD_ATTRIBUTE is 
when ORGIN’ VAL (0) => 
if not GLOBAL.RECORD FLAGS F.PANELS.LINE 1 then 
OKAY :- FALSE; 
end if; 
when ORGIN’ VAL (1) => 
if not GLOBAL.RECORD FLAGS F.PANELS.LINE 3 then 
OKAY := FALSE; 
end if; 
when ORGIN’ VAL (2) => 
if not GLOBAL.RECORD FLAGS F.PANELS.LINE. 4 then 
OKAY :- FALSE; 
end if; 
when ORGIN' VAL (3) 2» 
if not GLOBAL. RECORD FLAGS F.PANELS.LINE 5 then 
OKAY :- FALSE; 
end if; 
when ORGIN’ VAL (4) => 
if not GLOBAL.RECORD FLAGS F.PANELS.LINE 6 then 
OKAY := FALSE; 
end if; 
when ORGIN’ VAL (5) => 
if not GLOBAL. RECORD FLAGS F.PANELS.LINE 7 then 
OKAY :- FALSE; 
end if; 
when ORGIN’ VAL (6) => 
if not GLOBAL. RECORD FLAGS F.PANELS.LINE 8 then 
OKAY : FALSE; 
end if; 
when ORGIN’ VAL (7) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL5.LINE_9 then 
OKAY := FALSE; 
end if; 
when ORGIN’ VAL (8) => 
if not GLOBAL.RECORD FLAGS F.PANELS.LINE. 10 then 
OKAY := FALSE; 
end if; 
when ORGIN’ VAL (9) => 
if not GLOBAL.RECORD FLAGS F.PANELS.LINE. 11 then 
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OKAY : FALSE; 
end if; 
when ORGIN'VAL (10) => 
if not GLOBAL.RECORD FLAGS. F.PANELS.LINE,. 12 then 
OKAY := FALSE; 
end if; 
end case; 


case IN CURRENT SETTINGS.FOURTH ATTRIBUTE is 
when USAGE’ VAL (0) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL6.LINE_1 then 
OKAY := FALSE; 
end if; 
when USAGE’ VAL (1) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL6.LINE_2 then 
OKAY := FALSE; 
end if; 
end case; 


case IN CURRENT SETTINGS.FIFTH ATTRIBUTE is 
when DEVELOPMENT STATUS'VAL (0) 2 
if not GLOBAL.RECORD. FLAGS F.PANELO.LINE 1 then 
OKAY :- FALSE; 
end if; 
when DEVELOPMENT STATUS'VAL (1) 2» 
if not GLOBAL.RECORD FLAGS F.PANELO.LINE 2 then 
OKAY := FALSE; 
end if; 
when DEVELOPMENT_STATUS’ VAL (2) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL9.LINE_3 then 
OKAY := FALSE; 
end if; 
when DEVELOPMENT STATUS'VAL (3) 2» 
if not GLOBAL.RECORD FLAGS  F.PANELO9.LINE 4 then 
OKAY := FALSE; 
end if; 
when DEVELOPMENT STATUS'VAL (4) 2» 
if not GLOBAL.RECORD FLAGS F.PANELO.LINE 5 then 
OKAY := FALSE; 
end if; 
when DEVELOPMENT_STATUS’VAL (5) => 
if not GLOBAL.RECORD_FLAGS_F.PANEL9.LINE_6 then 
OKAY := FALSE; 
end if; 
when DEVELOPMENT_STATUS’VAL (6) => 
if not GLOBAL.RECORD FLAGS. F.PANELO.LINE 7 then 
OKAY :- FALSE; 
end if; 
when DEVELOPMENT STATUS'VAL (7) 2» 
if not GLOBAL.RECORD FLAGS F.PANEL9.LINE $8 then 
OKAY := FALSE; 
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end if; 
end case; 


retum OKAY; 


end CHECKED OKAY F; 


procedure PARSE SPECIAL LINE (LENGTH : in integer; 
POINTER 1 : inout positive; 
RETURN VALUE : out integer; 
PARSE STRING : in out string) is 


POINTER 2  .: positive; 

NOT FOUND : boolean := FALSE; 

PARSE STRING 2 : string (1..20) :z (others => * *); 
TEMP INT : integer; 


begin 


while not NOT. FOUND and POINTER, 1 «2 (LENGTH - 2) loop 
if PARSE STRING (POINTER, 1 .. POINTER, 1 - 3) 2 “ => “ then 
POINTER 1 :- POINTER 1 + 4; 
POINTER 2:- POINTER 1 4 1; 


while not NOT FOUND and POINTER, 2 «2 LENGTH loop 
if PARSE STRING (POINTER_2) = ‘,’ or 
PARSE STRING (POINTER_2)=°‘ then 
PARSE_STRING_2 (POINTER_1 - (POINTER_1 - 1) .. 
(POINTER_2 - POINTER_1)) 
= PARSE_STRING (POINTER_1 .. POINTER_2 - 1); 
TEMP_INT := integer’ VALUE (PARSE_STRING_2); 
RETURN_VALUE := TEMP_ INT; 
PARSE_STRING_2 := (others => * ‘); 
NOT_FOUND := TRUE; 
else 
POINTER_2 := POINTER_2 + 1; 
end if; 
end loop; 


else 
POINTER 1 :z POINTER 1 +1; 
end if; 


end loop; 


end PARSE SPECIAL LINE; 
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procedure PARSE SPECIAL COMMENT (IN NUM. :ininteger; 
IN LENGTH : in integer; 
IN STRING : in string) is 


TEMP STRING : string (1 .. 1024) := IN_STRING; 


EXEC_TEMP, 

DEC_TEMP, 

PRAGMA_TEMP : natural := 0; 
OFFSET : positive; 

OFFSET 1 : positive :— 13; 
OFFSET 2 : positive :— 26; 


OLD SETTINGS J: CURRENT SETTINGS TYPE :- CURRENT SETTINGS; 
begin 


if IN NUM « 0 then 

OFFSET :— OFFSET 1; 

CURRENT SETTINGS.SECOND ATTRIBUTE :- HOW PRODUCED 'val (5); 
else 

OFFSET :- OFFSET. 2; 

CURRENT SETTINGS.FIFTH ATTRIBUTE :- DEVELOPMENT. STATUS 'val (0); 
end if; 


if IN LENGTH » 0 then 


-- Now looking for the number associated with Executables 
PARSE_SPECIAL_LINE (IN_LENGTH, 

OFESET, 

EXEC TEMP, 

TEMP. STRING); 


CURRENT. SETTINGS.FIRST. ATTRIBUTE :- STMT. TYPE'val (0); 
if CHECK, REPORT. A E then 

GLOBAL.DETERMINE WHICH. ARRAY (IN RECORD => CURRENT. SETTINGS, 

ADD NUMBER -» EXEC TEMP); 

end if; 
if CHECK, REPORT F then 

if CHECKED OKAY F (CURRENT. SETTINGS) then 

COUNT. LINE (CURRENT SETTINGS, COUNT ARRAY F, EXEC TEMP); 

end if; 

end if; 


-- Now need to find the number associated for Declarations 
PARSE SPECIAL LINE (IN LENGTH, 

OFFSET, 

DEC, TEMP, 

TEMP STRING); 


CURRENT SETTINGS.FIRST ATTRIBUTE := ХТМТ ТУРЕ уа! (1); 
if CHECK_REPORT_A_E then 
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GLOBAL.DETERMINE WHICH ARRAY (IN RECORD -» CURRENT. SETTINGS, 
ADD NUMBER -» DEC TEMP); 

end if; 
if CHECK REPORT. F then 

if CHECKED OKAY F (CURRENT. SETTINGS) then 

COUNT LINE (CURRENT SETTINGS, COUNT ARRAY F, DEC TEMP); 

end if; 

end if; 


-- Now need to find the number associated for Compiler Directives 
PARSE SPECIAL LINE (IN LENGTH, 

OFFSET, 

PRAGMA TEMP, 

TEMP. STRING); 


CURRENT SETTINGS.FIRST ATTRIBUTE := STMT_TYPE’ val (2); 
if CHECK REPORT A E then 
GLOBAL.DETERMINE WHICH ARRAY (IN RECORD -> CURRENT. SETTINGS, 
ADD NUMBER -» PRAGMA TEMP); 
end if; 
if CHECK REPORT F then 
if CHECKED OKAY F (CURRENT. SETTINGS) then 
COUNT LINE (CURRENT SETTINGS, COUNT ARRAY F, PRAGMA TEMP); 
end if; 
end if; 


CURRENT SETTINGS :- OLD SETTINGS; 
end if; 


end PARSE SPECIAL COMMENT; 


procedure DETERMINE WHICH ARRAY (IN RECORD : in 
CURRENT SETTINGS TYPE; 
ADD NUMBER:in natural :- 1 ) is 


begin 


if RECORD FLAGS.PANEL2.REPORT A then 
if CHECKED OKAY. A (IN RECORD) then 
COUNT LINE (IN RECORD, COUNT. ARRAY. A, ADD NUMBER); 
end if; 
end if; 


if RECORD. FLAGS.PANEL2.REPORT B then 
if CHECKED OKAY. B (IN. RECORD) then 
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COUNT LINE (IN RECORD, COUNT ARRAV B, ADD NUMBER); 
end if; 
end if; 


if RECORD FLAGS.PANEL2. REPORT C then 
if CHECKED OKAY C (IN RECORD) then 
COUNT. LINE (IN RECORD, COUNT ARRAY C, ADD NUMBER); 
end if; 
end if; 


if RECORD_FLAGS.PANEL2.REPORT_D then 
if CHECKED OKAY D (IN RECORD) then 
COUNT LINE (IN RECORD, COUNT ARRAY D, ADD NUMBER); 
end if; 
end if; 
if RECORD_FLAGS.PANEL2.REPORT_E then 
if CHECKED OKAY E (IN RECORD) then 
COUNT. LINE (IN RECORD, COUNT ARRAY E, ADD NUMBER); 
end if; 
end if; 


end DETERMINE WHICH, ARRAY; 


procedure COUNT LINE (IN RECORD :in CURRENT SETTINGS, TYPE; 
ARRAY TYPE:inout COUNT ARRAY TYPE; 
ADD NUMBER:in natural := 1) is 


TEMP : natural := Q; 
begin 


TEMP : АКВАҮ ТҮРЕ (ІЧ RECORD.FIRST ATTRIBUTE, 
IN RECORD.SECOND ATTRIBUTE, 
IN RECORD.THIRD ATTRIBUTE, 
IN RECORD.FOURTH ATTRIBUTE, 
IN RECORD.FIFTH ATTRIBUTE); 
TEMP := TEMP + ADD NUMBER; 
--put С +ТЕМР+”); 
--рш (integer'image(temp)); 
ARRAY TYPE (IN RECORD.FIRST ATTRIBUTE, 
IN RECORD.SECOND ATTRIBUTE, 
IN RECORD.THIRD ATTRIBUTE, 
IN RECORD.FOURTH, ATTRIBUTE, 
IN RECORD.FIFTH ATTRIBUTE) : TEMP; 
end COUNT. LINE; 
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procedure ADD TO ARRAY A E(IN CURRENT. SETTINGS : in out 
CURRENT. SETTINGS. TYPE) is 


ADDED TO ARRAY  .: boolean := false; 
begin 
forIin PRIORITY, ARRAY A E'range loop 
for J in STMT, TYPE loop 


-- Found the statement type with the highest priority 

-- Conditions: 

-- Start flag is true, stop flag is true, ADDED TO ARRAY is false. 
-- Actions: 
-- Set ADDED_TO_ARRAY to true; set the FIRST_ATTRIBUTE to the 
-- current STATEMENT_TYPE (J); set both the 
-- start and stop flag of the current statement type to false. 
if PRIORITY ARRAY A E (1) 2J and 

FLAGS ARRAY (J, 1) and 

FLAGS ARRAY (1, 2) and 

not (ADDED TO ARRAY) then 


IN CURRENT SETTINGS.FIRST ATTRIBUTE :- J; 
DETERMINE WHICH ARRAY (IN RECORD 22 IN CURRENT SETTINGS); 
ADDED TO ARRAY :- true; 


-- Found the statement type with the highest priority 
- that extends over two or more lines. 
- Conditions: 
-- Start flag is true, stop flag is false, ADDED TO ARRAY is false. 
-- Actions: 
— Set ADDED TO ARRAT to true; set the FIRST ATTRIBUTE to the 
-- current STATEMENT. TYPE (7); 
elsif PRIORITY ARRAY A E(I)-J and 
FLAGS ARRAY (1,1) ала 
not FLAGS, ARRAY(J,2) and 
not ADDED TO ARRAY then 
IN CURRENT SETTINGS.FIRST. ATTRIBUTE :- J; 
ADDED TO ARRAY :- TRUE; 
DETERMINE, WHICH ARRAY (IN RECORD -» IN CURRENT. SETTINGS); 
end if; 


end loop; 


end loop; 
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end ADD TO ARRAY A E; 


-= 


procedure ADD. TO ARRAY. F (IN CURRENT. SETTINGS : in out 
CURRENT. SETTINGS TYPE)is 


ADDED TO ARRAY  .: boolean := false; 
begin 
forI1in PRIORITY ARRAY F'range loop 
for Jin STMT TYPE loop 


-- Found the statement type with the highest priority 

-- Conditions: 
-- Start flag is true, stop flag is true, ADDED TO ARRAY is false. 
-- Actions: 
— Set ADDED TO ARRAY to true; set the FIRST ATTRIBUTE to the 
-- current STATEMENT TYPE (J); call the procedure COUNT LINE 
-- which will add this line to the total; set both the 
start and stop flag of the current statement type to false. 
if PRIORITY ARRAY F (1) 2J and 

FLAGS ARRAY Q,1) and 
FLAGS ARRAY (J,2) and 
not (ADDED TO ARRAY) then 


IN CURRENT. SETTINGS.FIRST. ATTRIBUTE :- J; 
if CHECKED OKAY F (IN CURRENT SETTINGS) then 
GLOBAL.COUNT LINE (IN CURRENT. SETTINGS, COUNT. ARRAY. F); 
end if; 
ADDED_TO_ARRAY :2 true; 


-- Found the statement type with the highest priority 
-- that extends over two or more lines. 
-- Conditions: 
-- Start flag is true, stop flag is false, ADDED TO ARRAY is false. 
-- Actions: 
-- Set ADDED TO ARRAY to true; set the FIRST. ATTRIBUTE to the 
-- current STATEMENT TYPE (J); and call the procedure COUNT LINE 
-- which will add this line to the total. 
elsif PRIORITY ARRAY Е (П =] and 
FLAGS ARRAY (1,1) and 
not FLAGS ARRAY(J,2) and 
not ADDED TO ARRAY then 
IN CURRENT SETTINGS.FIRST. ATTRIBUTE :- J; 
ADDED TO ARRAY :- TRUE, 
if CHECKED OKAY F (IN CURRENT. SETTINGS) then 
GLOBAL.COUNT. LINE (IN CURRENT SETTINGS, COUNT ARRAY FJ, 
end 1f; 
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end if; 
end loop; 
end loop; 


end ADD TO ARRAY F; 


procedure ADD. TO. ARRAY is 


CURRENT SETTINGS A E, 
CURRENT SETTINGS F :CURRENT SETTINGS TYPE :z CURRENT. SETTINGS; 


begin 
if not SPECIAL COMMENT then 


if FLAGS ARRAY (STMT TYPE'val(0), 1) and 
not FLAGS. ARRAY (STMT TYPE'val(0),2) then 
EXECLEVEL := EXECLEVEL + 1; 
elsif not FLAGS ARRAV (STMT TVPE'val (0), 1) and 
FLAGS ARRAY (STMT TYPE'val (0), 2) then 
FLAGS, ARRAY (STMT TYPE'val (0), 1) : TRUE; 
EXECLEVEL := EXECLEVEL - 1; 
if EXECLEVEL < 0 then 
put, line(^Warning: execution parsing is confused"); 
end if; 
elsif EXECLEVEL » 0 then 
FLAGS ARRAY (STMT TYPE'val (0), 1) : TRUE; 
else 
null; 
end if; 


if FLAGS АККАУ (ТМТ ТУРЕ уа (1),1) ала 
not FLAGS ARRAY (STMT TYPE'val(1)2) then 
DECLEVEL := DECLEVEL + 1; 
elsif not FLAGS ARRAV (STMT TVPE'val (1), 1) and 
FLAGS ARRAY (STMT. TYPE'val (1), 2) then 
FLAGS ARRAY (STMT_TYPE ’ val (1), 1) := TRUE; 
DECLEVEL := DECLEVEL - 1; 
if DECLEVEL « 0 then 
put line(Warning: declaration parsing is confused"); 
end if; 
elsif DECLEVEL » 0 then 
FLAGS ARRAY (STMT TYPE'val (1), 1) := ТВОЕ; 
else 
null; 
end if; 
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if FLAGS_ARRAY (STMT_TYPE’ val (2), 1) апа 
not FLAGS. ARRAY (STMT TYPE'val(2),2) then 
PRAGMALEVEL := PRAGMALEVEL + 1; 
elsif not FLAGS ARRAX (STMT TVPE'val (2), 1) and 
FLAGS ARRAX (STMT TXPE ’ val (2), 2) then 
FLAGS_ARRAY (STMT_TYPE ’ val (2), 1) := TRUE; 
PRAGMALEVEL := PRAGMALEVEL - 1; 
elsif PRAGMALEVEL > 0 then 
FLAGS_ARRAY (STMT_TYPE’ val (2), 1) := TRUE; 
else 
null; 
end if; 
-- Debugging statements to help figure out the three 
-- variables used to track multiline flags 
--put (“[°); 
--put (integer image(execlevel)); 
-ри( Г); 
--put T; 
--put (integer'image(declevel)); 
--put (“J”); 
-put C[^); 
--put (inte ger’ image(pragmalevel)); 
--put (“]”); 


-- Checking for full line code 

if FLAGS ARRAY (STMT TYPE'val(3),1) then 
CURRENT SETTINGS.FIRST ATTRIBUTE :z STMT TYPE'val (3); 
DETERMINE WHICH, ARRAY (IN RECORD 22 CURRENT. SETTINGS); 


if CHECK REPORT F then 
if CHECKED OKAY F (CURRENT SETTINGS) then 
GLOBAL.COUNT LINE (CURRENT SETTINGS, COUNT ARRAY F); 
end if; 
end if; 


elsif FLAGS. ARRAY (STMT. TYPE'val (5), 1) then 
CURRENT. SETTINGS.FIRST. ATTRIBUTE :- STMT. TYPE'val (5); 
DETERMINE WHICH, ARRAY (IN. RECORD => CURRENT. SETTINGS); 


if CHECK, REPORT. F then 
if CHECKED OKAY F (CURRENT. SETTINGS) then 
GLOBAL.COUNT LINE (CURRENT SETTINGS, COUNT ARRAY F); 
end if; 
end if; 


elsif FLAGS. ARRAY (STMT. TYPE'val (6), 1) then 


CURRENT SETTINGS.FIRST ATTRIBUTE : STMT TYPE'val (6); 
DETERMINE, WHICH, ARRAY (IN RECORD 22 CURRENT. SETTINGS); 
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if CHECK REPORT F then 
if CHECKED OKAY F(CURRENT SETTINGS) then 
GLOBAL.COUNT. LINE (CURRENT SETTINGS, COUNT ARRAY FJ); 
end if; 
end if; 


elsif FLAGS. ARRAY (STMT TYPE'val (7), 1) then 
CURRENT. SETTINGS.FIRST. ATTRIBUTE := STMT TYPE 'val (7); 
DETERMINE WHICH ARRAY (IN. RECORD -» CURRENT SETTINGS); 


if CHECK, REPORT. F then 
if CHECKED OKAY F (CURRENT. SETTINGS) then 
GLOBAL.COUNT LINE (CURRENT SETTINGS, COUNT ARRAY F); 
end if; 
end if; 


else 
if CHECK REPORT A E then 
ADD TO ARRAY A E(CURRENT SETTINGS A E); 
end if; 
if CHECK REPORT F then 
ADD TO ARRAY F (CURRENT SETTINGS F); 
end if; 
end if; 
else 
SPECIAL COMMENT :- FALSE; 
end if; 


-- for insurance, clear appropriate flags before processing the next line 
foriin STMT TYPE'first.. STMT TYPE'last loop 

FLAGS ARRAY(L]1):- FALSE; 

FLAGS ARRAY(12):- FALSE; 
end loop; 


end ADD TO ARRAY; 


procedure INIT RECORD FLAGS is 
begin 


RECORD. FLAGS.PANEL6.DEL, OPTION (1)(my. value'range) := (others => ‘ ‘); 
RECORD. FLAGS.PANEL6.DEL, OPTION (1)(1 .. 19) := Delivered as source"; 


end INIT RECORD. FLAGS; 
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procedure INIT RECORD FLAGS B is 
begin 


RECORD FLAGS, B.PANELA.LINE, 6 :z TRUE; 
RECORD FLAGS, B.PANELO.LINE 3 :z TRUE; 
RECORD FLAGS, B.PANEL9.LINE 4 :z TRUE; 
RECORD FLAGS, B.PANELO.LINE 5 :z TRUE; 
RECORD FLAGS, B.PANELO.LINE, 6 :z TRUE; 
RECORD FLAGS B.PANELO.LINE 7 :z TRUE; 


end INIT RECORD FLAGS B; 


procedure INIT RECORD FLAGS C is 
begin 


RECORD FLAGS C.PANEL3.LINE 6 :- TRUE; 
RECORD FLAGS C.PANEL3.LINE 7 :z TRUE; 
RECORD FLAGS C.PANELA LINE 6 :- TRUE; 


end INIT RECORD FLAGS C; 


procedure INIT RECORD FLAGS D is 
begin 


RECORD FLAGS D.PANELA.LINE 6 :- TRUE; 


end INIT RECORD FLAGS D; 


procedure INIT RECORD FLAGS E is 
begin 


RECORD FLAGS E.PANEL3.LINE 6 :- TRUE; 
RECORD FLAGS E.PANEL3.LINE 7 :z TRUE; 
RECORD FLAGS E.PANELA.LINE 6:— TRUE; 


end INIT RECORD FLAGS E; 
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procedure INIT RECORD FLAGS F is 
begin 


RECORD FLAGS F :z RECORD FLAGS; 


end INIT RECORD FLAGS F; 


begin 


INIT RECORD FLAGS; 

INIT RECORD FLAGS B; 
INIT RECORD FLAGS C; 
INIT RECORD FLAGS D; 
INIT RECORD FLAGS E; 
INIT RECORD FLAGS F; 


end Global; 
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COUNT TOOL PKG 


--* Programmed 
with GLOBAL, 
TAE, 
PARSER, 
ADA, LEX IO, 
ADA, LEX, 
REPORT. PACKAGE, 
TEXT IO; 
use TAE, 
TEXT. IO; 


package TOOL PACKAGE is 


procedure SET PRECEDENCE F; 
procedure SET PRECEDENCE А Е; 


procedure START. COUNT; 
end TOOL. PACKAGE; 


--* Programmed 


package body TOOL PACKAGE is 


INITIAL TYPE : GLOBAL.STMT TYPE; 
INITIAL PRIORITY : TAE.TAEINT; 


package TAE INTEGER IN OUT is new integer 10 (TAE. TAEINT); 
use TAE INTEGER IN OUT; 


package INTEGER, IN OUT is new integer. io (integer); 
use INTEGER, IN OUT; 


package ENUMERATION IN. OUT is new ENUMERATION IO (GLOBAL.STMT TYPE); 
use ENUMERATION IN OUT; 


procedure DETERMINE PRIORITY (A :in GLOBAL.STMT. TYPE; 
В :ш TAE.TAEINT; 
C :inout GLOBAL.STMT TVPE; 
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D :inout TAE.TAEINT) is 
begin 


if (D > B and B / 0) or D = 0 then 
CSA 

D := B; 

end if; 


end DETERMINE_PRIORITY; 


procedure SET PRECEDENCE F is 
TEMP TYPE : GLOBAL.STMT TYPE; 
begin 
FOR Iin GLOBAL.PRIORITY ARRAY F'range loop 


INITIAL TYPE :: GLOBAL.STMT TYPE'val(0); 
INITIAL PRIORITY :: GLOBAL.RECORD FLAGS F.PANEL3.LINE 1 INT; 


DETERMINE, PRIORITY (GLOBAL.STMT. TYPE'val(0), 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 1 INT, 
INITIAL TYPE, 
INITIAL PRIORITY); 

DETERMINE PRIORITY (GLOBAL.STMT. TYPE'val(1), 
GLOBAL.RECORD FLAGS. F.PANELALLINE 3 INT, 
INITIAL TYPE, 
INITIAL PRIORITY); 

DETERMINE PRIORITY (GLOBAL.STMT. TYPE'val(2), 
GLOBAL.RECORD FLAGS F.PANEL3.LINE, 4 INT, 
INITIAL TYPE, 
INITIAL, PRIORITY); 

DETERMINE, PRIORITY (GLOBAL.STMT. TYPE'val(3), 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 6 INT, 
ІМІТІЛІ, ТҮРЕ, 
INITIAL PRIORITY; 

DETERMINE, PRIORITY (GLOBAL.STMT. TYPE'val(4), 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 7 INT, 
INITIAL, TYPE, 
INITIAL PRIORITY); 

DETERMINE, PRIORITY (GLOBAL.STMT. TYPE'val(5), 
GLOBAL.RECORD FLAGS. F.PANEL3 LINE 8 INT, 
INITIAL, TYPE, 
INITIAL, PRIORITY); 

DETERMINE, PRIORITY (GLOBAL.STMT. TYPE'val(6), 
GLOBAL RECORD. FLAGS F.PANEL3 LINE 9 INT, 
INITIAL, TYPE, 
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INITIAL. PRIORITY; 
DETERMINE PRIORITY (GLOBAL.STMT. TYPE'val(7), 

GLOBAL.RECORD FLAGS F.PANEL3 LINE 10 INT, 

INITIAL TYPE, 

INITIAL, PRIORITY); 


case INITIAL TYPE is 
when GLOBAL.STMT TYPE'val(0) 2» 
new line (2); 
put (GLOBAL.STMT TYPE'val(0)); 
put (“ 1s priority: “‘); 
put (GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_1_INT); 
new_line; 
GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_1_INT := 0; 
when GLOBAL.STMT TYPE'val(1) 2» 
put (GLOBAL.STMT TYPE 'val(1)); 
put (“is priority: “); 
put (GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_3_ - 
new. line; 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 3 INT :- 60; 
when GLOBAL.STMT TYPE'val(2) 2» 
put (GLOBAL.STMT TYPE'val(2)); 
put (“ is priority: °); 
put (GLOBAL.RECORD FLAGS F.PANEL3.LINE 4 INT); 
new line; 
GLOBAL.RECORD FLAGS, F.PANEL3.LINE 4 INT := 0; 
when GLOBAL.STMT. TYPE уа(3) 2» 
put (GLOBAL.STMT TYPE'val(3)); 
put (^ is priority: '9; 
put (GLOBAL.RECORD FLAGS F.PANEL3.LINE 6 INT); 
new line; 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 6 INT :z 0; 
when GLOBAL.STMT TYPE'val(4) 2» 
put (GLOBAL.STMT TYPE'val(4)); 
put (“ is priority: “‘); 
put (GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_7_INT); 
new_line; 
GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_7_INT := 0; 
when GLOBAL.STMT TYPE'val(5) 2» 
put (GLOBAL.STMT TYPE'val(5)); 
put (“ is priority: “‘); 
put (GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_8_INT); 
new line; 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 8 INT :-0; 
when GLOBAL.STMT_TYPE ’ val(6) => 
put (GLOBAL.STMT_TYPE ’ val(6)); 
put (* is priority: 5; 
put (GLOBAL.RECORD FLAGS F.PANEL3.LINE 9 INT); 
new line; 
GLOBAL.RECORD FLAGS F.PANEL3.LINE 9 INT :- 0; 
when GLOBAL.STMT_TYPE’ val(7) => 
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put (GLOBAL.STMT. TXPE'val(7)); 
- put (“1s priority: “); 
put (GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_10_INT); 
new_line (2); 
GLOBAL.RECORD_FLAGS_F.PANEL3.LINE_10_INT := 0; 
end case; 


GLOBAL.PRIORITY_ARRAY_F (I) := INITIAL TXPE, 
end loop; 


end SET_PRECEDENCE_F; 


procedure SET_PRECEDENCE_A_E is 
begin 


GLOBAL.PRIORITY_ARRAY_A_E (1) := GLOBAL.STMT_TYPE ’ val(0); 
GLOBAL.PRIORITY ARRAY A Е (2) := GLOBAL.STMT_TYPE ’val(1); 
GLOBAL.PRIORITY ARRAY. A Е (3) :- GLOBAL.STMT TYPE'val(2); 
GLOBAL.PRIORITY ARRAY. A: E (4) :- GLOBAL.STMT. TYPE'val(3); 
GLOBAL.PRIORITY ARRAY. A E (5) := GLOBAL.STMT. TYPE'val(4); 
GLOBAL.PRIORITY ARRAY. A E (6) :- GLOBAL.STMT. TYPE'val(5); 
GLOBAL.PRIORITY. ARRAY. A E (7) :: GLOBAL.STMT. TYPE'val(6); 
GLOBAL.PRIORITY ARRAY. A E (8): GLOBAL.STMT TVPE'val(7); 


end SET PRECEDENCE A E; 


procedure GET FILE NAME (OUT FILE NAME : outstring; 
OUT NAME LENGTH: outinteger; 
F : in out file, type) is 


TEMP NUMBER  : integer := 0; 


TEMP NAME . .: string (1 .. 80) := (others => ‘ ‘); 
NOT_BLANK _ : boolean := TRUE; 


begin 


if not end_of_file (F) then 
get line (F, TEMP NAME, TEMP NUMBER); 


while NOT BLANK loop 


if TEMP NAME (TEMP NUMBER) - ' ' then 
TEMP NUMBER :z TEMP NUMBER - 1; 
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else 
NOT BLANK :- FALSE; 
end if; 
end loop; 


end if; 


OUT. FILE NAME : TEMP NAME; 
OUT. NAME LENGTH :: TEMP NUMBER, 


--put (“the name of the file to opened is: “); 
—put line (temp name); 

--put (“the file name is this long: 7); 

—put (temp. number, width => 3); 

—new. line; 


end GET FILE NAME; 


procedure START PARSE is 


IS FILELIST : boolean; 


FILELIST : GLOBAL.MVX. VALUE :z GLOBAL.RECORD FLAGS. 
PANEL2.IN FILE NAME; 

LENGTH : integer; 

FILE NAME : string(1..80); 

LAST : integer :- 0; 


FILE LIST NAME : string (1..1024) := (others 2» * *); 
F : file type; 


begin 
LENGTH :< GLOBAL.FIND LENGTH (FILELIST); 
FILE_LIST_NAME(1..LENGTH) := FILELIST (1) (1. LENGTH); 
open (F, in file, FILE LIST NAME (1..LENGTH)); 
while not END OF FILE (F) loop 
GET FILE NAME (FILE NAME,LAST, F); 


ADA. LEX IO.OPEN INPUT (FILE NAME (1..LAST)); 
ADA. LEX IO.CREATE OUTPUT; 


new line; 

put line (* Starting parse °“); 
ADA LEX.linenum; 
PARSER. yyparse; 
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new. line; 
put line (' Finished parse “); 


ADA LEX IO.CLOSE INPUT; 
ADA LEX IO.CLOSE OUTPUT; 


end loop; 


end START PARSE; 


procedure START. COUNT is 
begin 

SET PRECEDENCE A E; 

if GLOBAL.RECORD FLAGS.PANEL2.REPORT F then 

SET PRECEDENCE F; 

end if; 

GLOBAL.OPEN OUT FILE; 

START PARSE; 

REPORT PACKAGE.DETERMINE WHICH. REPORT; 
end START. COUNT; 


end TOOL PACKAGE; 
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REPORT PKG S.A 


--* Programmed 


with GLOBAL, 

TAE, 

TEXT. IO, 

GENERIC COUNTS; 
use TAE, 

GLOBAL, 

TEXT. IO; 


package REPORT. PACKAGE is 


type TYPE NUMBER TYPE is range 1 .. 5; 
T2 NUMBER : TYPE NUMBER TYPE; 


type NAME REPORT. TYPE is (REPORT A, REPORT B, REPORT C, 
REPORT. D, REPORT E, REPORT Е); 
REPORT NAME : NAME REPORT TYPE; 


procedure DETERMINE WHICH, REPORT; 


function RETRIEVE 2D 1 (TYPE 1 : STMT TYPE; 
TYPE 2 : HOW PRODUCED; 
TYPE 3 : ORGIN; 
TYPE 4 : USAGE; 
TYPE 5 : DEVELOPMENT. STATUS; 
TYPE 6 : NAME REPORT. TYPE) return natural; 


function RETRIEVE 2D 2 (TYPE 1 : STMT TYPE; 
TYPE 2 : USAGE; 
TYPE 3 : HOW PRODUCED; 
TYPE 4 : ORGIN; 
TYPE 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT. TYPE) return natural; 


function RETRIEVE 2D. 3 (TYPE 1 : ORGIN; 
TYPE 2 : HOW PRODUCED; 
ТҮРЕ 3 : SIMT-TYPE:; 
TYPE 4 : USAGE; 
TYPE 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT. TYPE) return natural; 


function RETRIEVE 2D 4 (TYPE 1 : ORGIN; 


ТҮРЕ 2: STMT. TYPE; 
TYPE 3 : HOW PRODUCED; 
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TYPE 4 : USAGE; 
TYPE. 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 2D 5 (TYPE 1 : ORGIN; 
TYPE 2 : USAGE; 
TYPE 3 : STMT TYPE; 
TYPE 4 : HOW PRODUCED; 
TYPE. 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 2D 6 (TYPE 1 : ORGIN; 
TYPE 2 : DEVELOPMENT STATUS; 
TYPE 3 : STMT TYPE, 
TYPE 4 : HOW PRODUCED; 
TYPE 5 : USAGE; 
TYPE. 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 2D 7 (TYPE 1 : USAGE; 
TYPE 2 : HOW PRODUCED; 
TYPE. 3 : STMT TYPE; 
TYPE 4 : ORGIN; 
TYPE 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 2D 8 (TYPE 1 : DEVELOPMENT STATUS; 
TYPE 2 : STMT TYPE; 
TYPE 3 : HOW PRODUCED; 
TYPE 4 : ORGIN; 
TYPE 5 : USAGE; 
TYPE 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 2D 9 (TYPE 1 : DEVELOPMENT. STATUS; 
TYPE 2 : USAGE; 
ТҮРЕ 3 : 5ТМТ ТҮРЕ: 
TYPE 4 : HOW PRODUCED; 
TYPE 5 : ORGIN; 
TYPE 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 2D 10 (TYPE 1 : DEVELOPMENT STATUS; 
TYPE 2 : HOW PRODUCED; 
TYPE.3 : SIMI TYPE: 
TYPE 4 : ORGIN; 
TYPE 5 : USAGE; 
TYPE 6 : NAME REPORT TYPE) return natural; 


function RETRIEVE 3D 1(TYPE 1 : USAGE; 
TYPE 2 : HOW PRODUCED; 
TYPE 3 : ORGIN; 
TYPE 4 : STMT TYPE; 
TYPE 5 : DEVELOPMENT STATUS; 
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TYPE 6 : NAME REPORT. TYPE) retur natural; 
funcion RETRIEVE 3D 2(TYPE 1 : USAGE; 

TYPE 2 : HOW PRODUCED; 

TYPE 3 : DEVELOPMENT. STATUS; 

TYPE 4 : ORGIN; 

ТУРЕ 5 : SPNMT ТУРЕ: 

TYPE 6 : NAME REPORT TYPE) return natural; 
function RETRIEVE 3D 3 (TYPE 1 : DEVELOPMENT STATUS; 

TYPE 2 : HOW PRODUCED; 

TYPE 3 : ORGIN; 

TYPE 4 : STMT TYPE; 

TYPE 5 : USAGE; 

TYPE 6 : NAME REPORT. TY PE) return natural; 
function RETRIEVE 3D 4 (TYPE 1 : DEVELOPMENT STATUS; 

TYPE 2 : USAGE; 

TYPE 3 : ORGIN; 

TYPE 4 : HOW PRODUCED; 

TYPE.S : STMT TYPE; 

TYPE 6 : NAME REPORT TYPE) return natural; 
function CHECK 2D. 1 return TYPE NUMBER TYPE; 
function CHECK. 2D 2 retum TYPE NUMBER TYPE; 
function CHECK. 2D 3 return TYPE NUMBER TYPE; 
function CHECK 2D. 4 retum TYPE NUMBER TYPE; 
function CHECK 3D 1 return TYPE NUMBER TYPE; 
function CHECK 3D 2 retun TYPE NUMBER TYPE; 
function CHECK 3D. 3 return TYPE NUMBER TYPE; 
funcion CHECK 3D 4 retum TYPE NUMBER TYPE; 
procedure HEADING, STMT TYPE (ROW POSITION : positive); 
procedure HEADING, ORGIN (ROW POSITION : positive); 
procedure HEADING. USAGE (ROW POSITION : positive); 
procedure HEADING, DEV STATUS (ROW POSITION : positive); 


package INTEGER IN. OUT is new integer. io (integer); 
use INTEGER. IN OUT; 


package ENUMERATION IN OUT is new ENUMERATION IO (STMT TYPE); 
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use ENUMERATION IN OUT; 


package RETRIEVE, 1 2D is new GENERIC, COUNTS (FIRST. TYPE => ЅТМТ ТҮРЕ, 
SECOND TYPE — -» HOW. PRODUCED, 
THIRD TYPE =>ORGIN, 
FOURTH TYPE => USAGE, 
FIFTH TYPE | —» DEVELOPMENT. STATUS, 
REPORT TYPE | — NAME REPORT. TYPE, 
T NUMBER, TYPE -» TYPE NUMBER, TYPE, 
RETRIEVE — —» RETRIEVE 2D 1, 
CHECK TYPE 2 => СНЕСК 2р 1, 
CHECK TYPE 3 => СНЕСК 3р 1, 
PRINT ROW HEADING 25 HEADING STMT TVPE); 


package RETRIEVE 2 2D is new GENERIC COUNTS (FIRST TYPE -> 5ТМТ ТҮРЕ, 
SECOND TYPE => USAGE, 
THIRD TXPE -» HOW PRODUCED, 
FOURTH TYPE  -> ОКОЩ, 
FIFTH TYPE -» DEVELOPMENT STATUS, 
REPORT TYPE | -» NAME REPORT TYPE, 
T NUMBER TYPE -» TYPE NUMBER TYPE, 
RETRIEVE => RETRIEVE 2D 2, 
CHECK TYPE 2 => СНЕСК 2р 3, 
СНЕСК ТҮРЕ 3 => СНЕСК 3р 1, 
PRINT ROW HEADING -» HEADING STMT TYPE); 


package RETRIEVE 3 2D is new GENERIC COUNTS (FIRST TYPE => ORGIN, 
SECOND TYPE  -» HOW PRODUCED, 
THIRD TYPE => STMT TYPE, 
FOURTH TYPE => USAGE, 
FIFTH_TYPE => DEVELOPMENT_STATUS, 
REPORT ТУРЕ => МАМЕ ВЕРОВТ ТҮРЕ, 
T NUMBER TYPE -» TYPE NUMBER TYPE, 
RETRIEVE => КЕТКТЕУЕ 2D 3, 
CHECK TYPE 2  -» CHECK 2D 1, 
CHECK TYPE 3 => СНЕСК 3р 2, 
PRINT ROW HEADING -» HEADING. ORGIN); 


package RETRIEVE 4 2D is new GENERIC. COUNTS (FIRST TYPE => ORGIN, 
SECOND ТҮРЕ ->5ТМТ ТҮРЕ, 
THIRD TYPE -> HOW PRODUCED, 
FOURTH TYPE => USAGE, 
FIFTH_TYPE => DEVELOPMENT_STATUS, 
REPORT_TYPE => NAME_REPORT_TYPE, 
T_NUMBER_TYPE => TYPE_NUMBER_TYPE, 
RETRIEVE => RETRIEVE_2D 4, 
СНЕСК ТҮРЕ 2 => CHECK 2D 2, 
CHECK TYPE 3 => CHECK 3D 3, 
PRINT ROW HEADING -» HEADING. ORGIN); 


package RETRIEVE 5 2D is new GENERIC. COUNTS (FIRST. TYPE => ORGIN, 
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SECOND TYPE => USAGE, 

THIRD TYPE => STMT_TYPE, 

FOURTH TYPE  -> HOW PRODUCED, 
FIFTH TYPE => DEVELOPMENT STATUS, 
REPORT TYPE => NAME REPORT TYPE, 
T. NUMBER TYPE -» TYPE NUMBER TYPE, 
RETRIEVE -» RETRIEVE 2D 5, 
БЕНІЗКИРУРЕ 27%-> СНЕСК 2D 3, 

CHECK TYPE 3 => СНЕСК 3р 2, 

PRINT ROW HEADING 27 HEADING, ORGIN); 


package RETRIEVE 6 2D isnew GENERIC COUNTS (FIRST ТУРЕ 22 ORGIN, 
SECOND TYPE 22 DEVELOPMENT STATUS, 
THIRD. TYPE z» STMT TYPE, 
FOURTH TYPE | -» HOW PRODUCED, 
НИВИ TYPE -> USAGE, 
REPORT TYPE => МАМЕ КЕРОКТ ТҮРЕ, 
T NUMBER TYPE ->ТҮРЕ МОМВЕК ТҮРЕ, 
RETRIEVE -» RETRIEVE 2D 6, 
CHECK TYPE 2  z» CHECK 20 4, 
CHECK TYPE 3  z» CHECK 3D 2, 
PRINT ROW HEADING z» HEADING ORGIN); 


package RETRIEVE 7 2D is new GENERIC COUNTS (FIRST TYPE => USAGE, 
SECOND TYPE =>HOW_PRODUCED, 
THIRD. TYPE => SIMIT TYPE, 
FOURTH_TYPE => ORGIN, 
FIFTH_TYPE => DEVELOPMENT_STATUS, 
REPORT_TYPE => NAME_REPORT_TYPE, 
T_NUMBER_TYPE => TYPE_NUMBER_TYPE, 
RETRIEVE => RETRIEVE_2D 7, 
СНЕСК_ ТҮРЕ 2 => СНЕСК 2р 1, 
CHECK TYPE 3 => СНЕСК 3р 2, 
PRINT ROW HEADING -» HEADING USAGE); 


package RETRIEVE 8 2D is new GENERIC, COUNTS (FIRST. TYPE => 
DEVELOPMENT. STATUS, 
SECOND TYPE ->5ТМТ. ТҮРЕ, 
THIRD TVPE => HOW PRODUCED, 
FOURTH TYPE =>ORGIN, 
FIFTH_TYPE 22 USAGE, 
REPORT TYPE => NAME REPORT TYPE, 
T NUMBER TYPE => TYPE NUMBER TYPE, 
RETRIEVE 22 RETRIEVE 2D 8, 
CHECK TYPE_2 => CHECK 27D 2, 
CHECK TYPE 3  z» CHECK 3D 3, 
PRINT ROW HEADING -» HEADING DEV STATUS); 


package RETRIEVE 9 2D is new GENERIC COUNTS (FIRST TYPE => 


DEVELOPMENT. STATUS, 
SECOND TYPE => USAGE, 
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THIRD TYPE => ЅТМТ ТҮРЕ, 
FOURTH TYPE => HOW. PRODUCED, 

FIFTH TYPE => ORGIN, 

ВЕРОВТ ТҮРЕ => МАМЕ ВЕРОВТ TYPE, 

T NUMBER TYPE -» TYPE NUMBER TYPE, 
RETRIEVE => RETRIEVE 2D 9, 

CHECK TYPE 2 => СНЕСК 2р 3, 

СНЕСК_ТҮРЕ З => СНЕСК 3р 2, 

PRINT ROW. HEADING —» HEADING. DEV. STATUS); 


package RETRIEVE 10 2D is new GENERIC COUNTS (FIRST TYPE => 
DEVELOPMENT. STATUS, 

SECOND TYPE 22 HOW PRODUCED, 
THIRD TYPE => STMT TYPE, 
FOURTH TYPE =>ORGIN, 
FIFTH TYPE => USAGE, 
REPORT TYPE ->МАМЕ REPORT TYPE, 
T NUMBER TYPE -» TYPE NUMBER TYPE, 
RETRIEVE —» RETRIEVE 2D. 10, 
CHECK TYPE2  -» CHECK 2D 1, 
CHECK TYPE 3  -» CHECK 3D 2, 
PRINT ROW HEADING -» HEADING. DEV STATUS); 


package RETRIEVE 1. 3D is new GENERIC, COUNTS (FIRST TYPE => USAGE, 
SECOND TYPE => НОМ PRODUCED, 
THIRD TYPE => ORGIN, 
FOURTH_TYPE ->5ТМТ ТҮРЕ, 
FIFTH TYPE => DEVELOPMENT STATUS, 
REPORT TYPE | -»NAME REPORT. TYPE, 
T NUMBER, ТҮРЕ => ТҮРЕ NUMBER, TYPE, 
RETRIEVE -» RETRIEVE 3D 1, 
CHECK TYPE 2  -» CHECK 2D 1, 
CHECK TYPE 3  -» CHECK 3D 1, 
PRINT ROW HEADING -» HEADING. USAGE); 


package RETRIEVE 2 3D is new GENERIC COUNTS (FIRST TYPE => USAGE, 
SECOND TYPE  -» HOW PRODUCED, 
THIRD TYPE => DEVELOPMENT STATUS, 
FOURTH TYPE => ORGIN, 
FIFTH_TYPE => STMT_TYPE, 
REPORT TYPE  -»NAME REPORT TYPE, 
T NUMBER TYPE -» TYPE NUMBER, TYPE, 
RETRIEVE -» RETRIEVE. 3D 2, 
CHECK TYPE 2  -» CHECK 2D 1, 
CHECK TYPE 3  -> СНЕСК 30 4, 
PRINT ROW HEADING -» HEADING. USAGE); 


package RETRIEVE 3 3D is new GENERIC. COUNTS (FIRST. TYPE => 
DEVELOPMENT STATUS, 
SECOND TYPE => НОМ PRODUCED, 
THIRD TYPE => ORGIN, 
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FOURTH TYPE ->5ТМТ ТҮРЕ, 

FIFTH_TYPE => USAGE, 

REPORT TYPE ->МАМЕ КЕРОКТ ТҮРЕ, 

T NUMBER TYPE ->ТҮРЕ МГМВЕК ТҮРЕ, 
RETRIEVE -» RETRIEVE 3D 3, 

CHECK TYPE 2  z» CHECK 2D 1, 

CHECK_TYPE_3 <> СНЕСК 3D 1, 

PRINT ROW HEADING -» HEADING, DEV STATUS); 


package RETRIEVE 4 3D is new GENERIC COUNTS (FIRST TYPE => 
DEVELOPMENT. STATUS, 


end REPORT PACKAGE; 


SECOND TYPE => USAGE, 

THIRD TVPE => ORGIN, 

FOURTH TYPE => HOW_PRODUCED, 
ЕТЕТН_ТҮРЕ -> 5ТМТ ТҮРЕ, 

REPORT TYPE ->МАМЕ КЕРОКТ ТҮРЕ, 

T NUMBER TYPE -z» TYPE NUMBER TYPE, 
RETRIEVE => RETRIEVE 3D 4, 

CHECK TYPE 2  z» CHECK 2D 3, 

CHECK TYPE 3  z» CHECK 3D 1, 

PRINT ROW HEADING -» HEADING, DEV STATUS); 
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REPORT РКС В.А 


--* Programmed 


package body REPORT. PACKAGE is 


function CNT EST (D : in DEVELOPMENT. STATUS; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 


TEMP COUNT : integer := 0; 
begin 


for S in STMT TYPE FIRST .. STMT TYPE' LAST loop 
for Hin HOW PRODUCED FIRST .. HOW PRODUCED'LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for U in USAGE'FIRST .. USAGE'LAST loop 


TEMP COUNT : TEMP COUNT « IN COUNT ARRAY (S, H, O,U, D); 


end loop; 

end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end CNT EST; 


function RETRIEVE 2D 1(TYPE 1 : STMT TYPE; 
TYPE 2 : HOW PRODUCED; 
TYPE 3 : ORGIN; 
TYPE 4 : USAGE; 
TYPE 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP ``: natural := 0 
begin 


case ТҮРЕ 615 
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when КЕРОКТ_А => 

TEMP = COUNT ARRAY_A(TYPE_1, TYPE_2, TYPE_3, TYPE_4, TYPE_5); 
when REPORT_B => 

TEMP COUNT ARRAX. B(TXPE 1, TXPE 2, TXPE 3, TXPE 4, TXPE 5); 
when КЕРОКТ_С => 

TEMP : COUNT ARRAY C (TYPE 1, TYPE 2, TYPE 3, TYPE 4, TYPE 5); 
when REPORT. D 2» 

TEMP : COUNT ARRAY D (TYPE 1, TYPE 2, TYPE 3, TYPE 4, TYPE 5); 
when REPORT. E 2» 

TEMP : COUNT. ARRAY E (TYPE 1, TYPE 2, TYPE 3, TYPE 4, TYPE 5y 
when REPORT. F 2» 

TEMP : COUNT ARRAY F (TYPE 1, ТҮРЕ 2, ТҮРЕ 3, ТҮРЕ 4, ТҮРЕ 5); 


end case; 


return TEMP; 


end RETRIEVE 2D 1; 


function RETRIEVE 2D 2 (TYPE 1 : STMT TYPE; 


TYPE 2 : USAGE; 

TYPE 3 : HOW PRODUCED; 

TYPE 4 : ORGIN; 

TYPE 5 : DEVELOPMENT STATUS; 

ТҮРЕ 6 : NAME REPORT TYPE) return natural is 


TEMP  : natural :2 €; 


begin 


case TYPE 61s 
when REPORT. A => 
TEMP : COUNT ARRAY A (TYPE 1, TYPE 3, TYPE 4, TYPE 2, TYPE 5); 
when REPORT. B => 
TEMP : COUNT ARRAY B (TYPE 1, ТҮРЕ 3, TYPE 4, ТҮРЕ 2, ТҮРЕ 5); 
when REPORT. C > 
ТФЕГІГ-СОПАЫТ АККАҮ С(ТҮРЕ |І, ТҮРЕ 3, ТҮРЕ 4, ТҮРЕ 2, ТҮРЕ 5): 
when REPORT. D 2» 
TEMP : COUNT ARRAY D (TYPE 1, TYPE 3, ТҮРЕ 4, ТҮРЕ 2, ТҮРЕ 5); 
when REPORT E => 
TEMP : COUNT ARRAY E (TYPE 1, TYPE 3, TYPE 4, TYPE 2, TYPE 5); 
when REPORT. F 2» 
TEMP := COUNT ARRAY Е (ТҮРЕ 1, TYPE 3, TYPE 4, TYPE 2, TYPE 5); 
end case; 


return TEMP; 


end RETRIEVE 2D. 2; 
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function RETRIEVE 2D 3(TVPE 1 : ORGIN; 
TYPE 2 : HOW PRODUCED; 
TYPE 3 : STMT TYPE; 
TYPE 4 : USAGE; 
TYPE. 5 : DEVELOPMENT. STATUS; 
TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural :- 0; 
begin 


case TYPE 6 is 
when REPORT. A => 
TEMP :- COUNT ARRAY A (TYPE 3, TYPE 2, TYPE 1, TYPE 4, ТҮРЕ 5); 
when REPORT. B -» 
TEMP :- COUNT ARRAY B (TYPE 3, TYPE 2, TYPE 1, TYPE 4, TYPE 5); 
when REPORT_C => 
TEMP := COUNT_ARRAY_C (TYPE_3, TYPE_2, TYPE_1, TYPE_4, TYPE 5); 
when REPORT_D => 
TEMP :- COUNT ARRAY. D (TYPE 3, TYPE 2, TYPE 1, TYPE 4, TYPE 5); 
when REPORT. E => 
TEMP : COUNT ARRAY E (TYPE 3, TYPE 2, TYPE 1, TYPE 4, TYPE 5); 
when REPORT F => 
TEMP : COUNT ARRAY F (TYPE 3, TYPE 2, TYPE i, TYPE 4, TYPE 5); 
end case; 


return TEMP; 


end RETRIEVE 2D 3; 


function RETRIEVE 2D 4 (TYPE 1 : ORGIN; 

TYPE_2 : STMT_TYPE; 

TYPE_3 : HOW_PRODUCED; 

TYPE_4 : USAGE; 

TYPE_5 : DEVELOPMENT_STATUS; 

TYPE 6 : NAME REPORT TYPE) return natural is 


TEMP  : natural := 0; 
begin 


case TYPE 6 is 
when REPORT. A => 
TEMP :- COUNT ARRAY A (TYPE 2, TYPE 3, TYPE 1, TYPE 4, TYPE 5); 
when REPORT. B => 
TEMP :- COUNT ARRAY B (TYPE 2, TYPE 3, TYPE 1, TYPE 4, TYPE 5); 
when REPORT. C => 
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ТЕМР := СООМТ_АККАУ_С (ТУРЕ_2, ТУРЕ_3, ТУРЕ_1, ТУРЕ_4, ТУРЕ_5); 
when REPORT р => 

TEMP :- COUNT ARRAY D (TYPE 2, TYPE 3, TYPE 1, TYPE 4, TYPE 5); 
when REPORT E => 

TEMP :- COUNT ARRAY E (TYPE 2, TYPE 3, TYPE 1, ТҮРЕ 4, ТҮРЕ 5); 
when REPORT. F 2» 

TEMP : COUNT ARRAY F (TYPE 2, TYPE 3, TYPE 1, TYPE 4, TYPE 5); 


end case; 


return TEMP; 


end RETRIEVE 2D 4; 


function RETRIEVE 2D. 5 (TYPE 1 : ORGIN; 


TYPE 2 : USAGE; 

DFES: SIMI TYPE; 

TYPE 4 : HOW PRODUCED; 

TYPE 5 : DEVELOPMENT STATUS; 

TYPE. 6 : NAME REPORT. TYPE) return natural is 


TEMP : natural := 0; 


begin 


сазе ТУРЕ_6 15 


when REPORT А => 

TEMP : COUNT ARRAY A (TYPE 3, TYPE 4, TYPE 1, TYPE 2, TYPE 5); 
when REPORT. B => 

TEMP : COUNT ARRAY B (TYPE 3, TYPE 4, TYPE 1, ТҮРЕ 2, ТҮРЕ 5); 
when REPORT. C => 

TEMP :- COUNT ARRAY C (TYPE 3, TYPE 4, TYPE 1, ТҮРЕ 2, ТҮРЕ 5); 
when REPORT. D => 

TEMP : COUNT ARRAY D (TYPE 3, TYPE 4, TYPE 1, TYPE 2, TYPE 5y; 
when REPORT E => 

TEMP :- COUNT ARRAY E (TYPE 3, TYPE 4, ТҮРЕ 1, ТҮРЕ 2, ТҮРЕ 5); 
when REPORT. F 2» 

TEMP : COUNT ARRAY F (TYPE 3, TYPE 4, TYPE 1, TYPE 2, TYPE 5); 


end case; 


return TEMP; 


end RETRIEVE 2D 5; 


function RETRIEVE 2D. 6 (TYPE 1 : ORGIN; 


TYPE 2 : DEVELOPMENT STATUS; 
ЛЕГЕ 3 : ТМТ ТҮРЕ; 
TXPE 4 : HOW PRODUCED; 
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TVPE 5 : USAGE; 
TYPE 6 : NAME, REPORT. TYPE) return natural is 


TEMP  : natural := 0; 
begin 


сазе ТУРЕ 615 
when REPORT А => 
TEMP := COUNT_ARRAY_A (ТҮРЕ 3, ТҮРЕ 4, ТҮРЕ 1, ТҮРЕ 5, ТҮРЕ 2); 
when REPORT_B => 
TEMP := COUNT ARRAY B (TYPE 3, TYPE 4, TYPE 1, TYPE 5, TYPE 2); 
when REPORT С => 
TEMP : COUNT ARRAY C (TYPE 3, TYPE 4, TYPE 1, TYPE 5, TYPE 2); 
when REPORT. D 2» 
TEMP : COUNT ARRAY D (TYPE 3, TYPE 4, TYPE 1, TYPE 5, ТҮРЕ 2); 
when КЕРОКТ Е => 
TEMP : COUNT ARRAY E (TYPE 3, TYPE 4, TYPE 1, TYPE 5, TYPE 2); 
when REPORT. F => 
TEMP : COUNT ARRAY F (TYPE 3, TYPE 4, TYPE 1, TYPE 5, TYPE 2); 
end case; 


return TEMP; 


end RETRIEVE 2D 6; 


function RETRIEVE 2D 7 (TYPE 1 : USAGE; 
TYPE 2 : HOW PRODUCED; 
TYPE_3 : STMT TYPE; 
TYPE 4 : ORGIN; 
TYPE 5 : DEVELOPMENT STATUS; 
TYPE 6 : NAME REPORT TYPE) return natural is 


TEMP  : natural :2 €; 
begin 


case TYPE 6 15 

when REPORT. A => 

TEMP : COUNT ARRAY A (TYPE 3, TYPE 2, TYPE 4, TYPE 1, TYPE 5); 
when REPORT. B => 

TEMP : COUNT ARRAY B (TYPE 3, TYPE 2, TYPE 4, TYPE 1, TYPE 5); 
when REPORT. C => 

TEMP :z COUNT ARRAY C (TYPE 3, TYPE 2, TYPE 4, TYPE 1, TYPE 5); 
when REPORT. D 2» 

TEMP : COUNT ARRAY D (TYPE 3, TYPE 2, TYPE 4, TYPE 1, TYPE 5); 
when REPORT E => 

TEMP : COUNT ARRAY, E (TYPE 3, TYPE 2, TYPE 4, TYPE 1, TYPE 5) 
when REPORT. F 2» 
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ТЕМР-- СОПУТ- АККАҮ Е(ТҮРЕ 3, ТҮРЕ 2, ТҮРЕ 4, ТҮРЕ 1, ТҮРЕ 8); 
end case; 


return TEMP; 


end RETRIEVE 2D. 7; 


function RETRIEVE 2D 8 (TYPE 1 : DEVELOPMENT STATUS; 
TYPE. 2 : STMT. TYPE; 

TYPE. 3 : HOW PRODUCED; 

TYPE 4 : ORGIN; 

TYPE. 5 : USAGE; 

TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural := 0; 
begin 


case ТҮРЕ 615 
when REPORT А -> 
ТЕМР := СООМТ АККАҮ А (ТҮРЕ 2, ТҮРЕ 3, ТҮРЕ 4, ТҮРЕ 5, ТҮРЕ 1); 
when REPORT. B => 
TEMP :z COUNT ARRAY B (TYPE 2, TYPE 3, TYPE 4, TYPE 5, TYPE 1); 
when REPORT C — 
TEMP :z COUNT ARRAY C (TYPE 2, TYPE 3, TYPE 4, TYPE 5, TYPE 1); 
when REPORT. D -» 
TEMP :z COUNT ARRAY. D (TYPE 2, TYPE 3, TYPE 4, TYPE 5, TYPE 1); 
when REPORT Е => 
TEMP :- COUNT ARRAY E (TYPE 2, TYPE 3, TYPE 4, TYPE 5, ТҮРЕ 1); 
when REPORT. F 2» 
TEMP : COUNT ARRAY F (TYPE 2, TYPE 3, TYPE 4, TYPE 5, TYPE 1); 
end case; 


retum TEMP; 
end RETRIEVE. 2D 8; 


function RETRIEVE 2D 9 (TYPE 1 : DEVELOPMENT. STATUS; 
TYPE_2 : USAGE; 
TYPE 3 : STMI TYPE; 
TYPE 4 : HOW PRODUCED; 
TPES" ORGIN; 
TYPE_6 : NAME_REPORT_TYPE) return natural is 


TEMP : natural := 0; 


begin 
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сазе ТУРЕ 615 
when REPORT. A => 
TEMP : COUNT ARRAY A (TYPE 3, TYPE 4, TYPE 5, TYPE 2, ТҮРЕ 1); 
when REPORT. B => 
TEMP : COUNT ARRAY B (TYPE 3, TYPE 4, TYPE S, TYPE 2, TYPE 1); 
when REPORT. C => 
TEMP : COUNT ARRAY C (TYPE 3, TYPE 4, TYPE 5, TYPE 2, TYPE 1); 
when REPORT. D => 
TEMP : COUNT ARRAY D (TYPE 3, TYPE 4, TYPE 5, TYPE 2, TYPE 1); 
when REPORT E => 
TEMP : COUNT ARRAY E (TYPE. 3, TYPE 4, TYPE 5, TYPE 2, TYPE 1), 
when REPORT Е => 
TEMP :z COUNT ARRAY F (TYPE 3, TYPE 4, TYPE 5, TYPE 2, TYPE 1); 
end case; 


return TEMP; 


end RETRIEVE 2D 9; 


function RETRIEVE 2D 10 (TYPE 1 : DEVELOPMENT STATUS; 
TYPE 2 : HOW PRODUCED; 
TYPE 3 : STMT TYPE; 
TYPE 4 : ORGIN; 
TYPE 5 : USAGE; 
TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural :2 0; 
begin 


case TYPE 61s 
when REPORT. A => 
TEMP : COUNT ARRAY A (TYPE 3, TYPE 2, TYPE 4, TYPE 5, TYPE 1); 
when REPORT. B => 
TEMP : COUNT ARRAY B (TYPE 3, TYPE 2, TYPE 4, TYPE 5, TYPE 1); 
when REPORT. C => 
TEMP : COUNT ARRAY C (TYPE 3, TYPE 2, TYPE 4, TYPE 5, ТҮРЕ 1); 
when REPORT. D => 
TEMP : COUNT ARRAY D (TYPE 3, TYPE 2, TYPE 4, TYPE 5, TYPE 1); 
when REPORT. E => 
TEMP : COUNT ARRAY E(TYPE 3, TYPE 2, TYPE 4, TYPE 5, TYPE. 1); 
when REPORT. F 2» 
TEMP : COUNT ARRAY F (TYPE 3, TYPE 2, TYPE 4, TYPE 5, TYPE 1); 
end case; 


return TEMP; 


end RETRIEVE 2D. 10; 
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function RETRIEVE 3D 1 (ТҮРЕ 1: USAGE; 
TYPE 2 : HOW PRODUCED; 
TYPE 3 : ORGIN; 
TYPE 4 : STMT TYPE; 
TYPE 5 : DEVELOPMENT. STATUS; 
TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural :2 0; 
begin 


case TYPE 61s 
when REPORT. A 2» 
TEMP : COUNT ARRAY A (TYPE 4, TYPE 2, TYPE 3, TYPE 1, TYPE 5); 
when REPORT. B => 
TEMP : COUNT ARRAY B (TYPE 4, TYPE 2, ТҮРЕ 3, ТҮРЕ 1, ТҮРЕ 5); 
when REPORT. C 2» 
TEMP : COUNT ARRAY C (TYPE 4, TYPE 2, TYPE 3, TYPE 1, TYPE 5); 
when REPORT. D 2» 
TEMP : COUNT ARRAY D (TYPE 4, TYPE 2, TYPE 3, TYPE 1, TYPE 5); 
when REPORT E => 
TEMP : COUNT ARRAY E (TYPE 4, TYPE 2, TYPE 3, TYPE 1, TYPE 5); 
when REPORT. F 2» 
TEMP : COUNT ARRAY F (TYPE 4, TYPE 2, ТҮРЕ 3, ТҮРЕ 1, TYPE 5); 
end case; 


retum TEMP; 


end RETRIEVE 3D 1; 


function RETRIEVE 3D 2 (TYPE 1 : USAGE; 

TYPE 2 : HOW PRODUCED; 

TYPE 3 : DEVELOPMENT STATUS; 

TYPE 4 : ORGIN; 

ТҮРЕ 5 SSIMT TXPE; 

TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural :2 0; 
begin 
case TYPE 6 is 
when REPORT. A 2» 
TEMP : COUNT ARRAY A (TYPE 5, TYPE 2, TYPE 4, TYPE 1, ТҮРЕ 3); 


when REPORT. B 2» 
TEMP : COUNT ARRAY B (TYPE 5, TYPE 2, TYPE 4, TYPE 1, TYPE 3y; 
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when REPORT. C -» 

TEMP : COUNT ARRAY C (TYPE 5, TYPE 2, TYPE 4, ТҮРЕ 1, ТҮРЕ 3); 
when REPORT. D 2» 

TEMP : COUNT ARRAY. D (TYPE 5, TYPE 2, TYPE 4, TYPE 1, TYPE 3); 
when REPORT_E => 

TEMP : COUNT_ARRAY_E (TYPE_5, TYPE_2, TYPE_4, TYPE_1, TYPE_3); 
when REPORT_F => 

TEMP := COUNT_ARRAY_F (TYPE_5, TYPE_2, TYPE_4, TYPE_1, TYPE_3); 

end case; 


return TEMP; 


end RETRIEVE_3D_2; 


function RETRIEVE_3D_3 (TYPE_1 : DEVELOPMENT_STATUS; 
TYPE_2 : HOW_PRODUCED; 
TYPE_3 : ORGIN; 
ТҮРЕ 4 : 5ТМТ ТҮРЕ; 
TYPE 5 : USAGE; 
ТҮРЕ 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural :=0; 
begin 


case TYPE 6 is 
when REPORT. A 2» 
TEMP :z COUNT ARRAY A (TYPE 4, TYPE 2, TYPE 3, TYPE 5, TYPE 1); 
when REPORT. B => 
TEMP :- COUNT ARRAY B (TYPE 4, TYPE 2, TYPE 3, TYPE 5, TYPE 1); 
when REPORT. C — 
TEMP : COUNT ARRAY C (TYPE 4, TYPE 2, TYPE 3, TYPE 5, TYPE 1); 
when REPORT. D z» 
TEMP : COUNT ARRAY D (TYPE 4, TYPE 2, TYPE 3, TYPE 5, TYPE 1); 
when REPORT Е => 
TEMP : COUNT ARRAY E (TYPE 4, TYPE 2, TYPE 3, TYPE 5, ТҮРЕ 1); 
when REPORT F => 
TEMP :z COUNT ARRAY F (TYPE 4, ТҮРЕ 2, ТҮРЕ 3, ТҮРЕ 5, ТҮРЕ 1); 
end case; 


return TEMP; 


end RETRIEVE 3D 3; 


function RETRIEVE 3D 4(TXPE 1 : DEVELOPMENT STATUS; 
TYPE 2 : USAGE; 
TYPE 3 : ORGIN; 
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TYPE 4 : HOW PRODUCED; 
TYPE 5 : 5ТМТ TYPE; 
TYPE 6 : NAME REPORT. TYPE) return natural is 


TEMP  : natural :2 Q; 
begin 


case TYPE 6 is 
when REPORT. A => 
TEMP : COUNT ARRAY A (TYPE 5, ТҮРЕ 4, ТҮРЕ 3, ТҮРЕ 2, ТҮРЕ 1); 
when REPORT. B => 
TEMP : COUNT ARRAY B (TYPE 5, TYPE 4, TYPE 3, TYPE 2, TYPE 1); 
when REPORT C => 
TEMP: COUNT ARRAY С (ТҮРЕ 5, ТҮРЕ 4, ТҮРЕ 3, ТҮРЕ 2, ТҮРЕ 1); 
when REPORT_D => 
TEMP : COUNT ARRAY D (TYPE 5, TYPE 4, TYPE 3, TYPE 2, TYPE 1); 
when REPORT E => 
TEMP : COUNT ARRAY E (TYPE. 5, TYPE 4, TYPE 3, TYPE 2, TYPE 1); 
when REPORT F => 
TEMP := COUNT_ARRAY Е (ТҮРЕ 5, ТҮРЕ 4, ТҮРЕ 3, ТҮРЕ 2, ТҮРЕ 1); 
end case; 


return TEMP; 


end RETRIEVE 3D 4; 


function CHECK 2D 1 retun TXPE NUMBER, TYPE is 
T2 МОМВЕК : ТҮРЕ МОМВЕК ТҮРЕ := 1; 

Беріп 
return T2 NUMBER; 


end CHECK 2D 1; 


- 


function CHECK 2D 2 retum TVPE NUMBER TVPE is 
T2 NUMBER : TYPE NUMBER TYPE :- 2; 

begin 
return T2 NUMBER; 


end CHECK. 2D 2; 


function CHECK 2D 3 return TYPE NUMBER TYPE is 
T2 NUMBER : TYPE NUMBER, TYPE := 3; 
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Беріп 
return T2 NUMBER; 


end CHECK 2D 3; 


== 


function CHECK 2D 4 retum TXPE NUMBER TVPE 15 
T2 NUMBER : TXPE NUMBER TVPE :-4; 
begin 


return T2 NUMBER; 


end CHECK 2D 4; 


function CHECK 3D. 1 return TYPE NUMBER TYPE is 
T3 NUMBER : TYPE NUMBER, TYPE :- 5; 
begin 


return T3. NUMBER; 


end CHECK 3D 1; 


function CHECK 3D 2 return TYPE NUMBER TYPE is 
T3 NUMBER : TYPE NUMBER TYPE :z 2; 
begin 


return TJ NUMBER; 


end CHECK 3D 2; 


function CHECK 3D 3 return TYPE NUMBER TYPE is 
T3 NUMBER : TYPE NUMBER TYPE :- 1; 
begin 


return T3 NUMBER; 


end CHECK 3D 3; 


function CHECK 3D 4 return TYPE NUMBER, TYPE is 
T3. NUMBER : TYPE NUMBER, TYPE :- 4; 
begin 
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return T3 NUMBER; 


end CHECK. 3D 4; 


procedure HEADING, STMT TYPE (ROW POSITION: positive) is 
TEMP .: integer: ROW POSITION - 1; 
begin 


if TEMP = 0 then 
put (OUT. FILE TYPE, *Executable %; 

elsif TEMP = 1 then 
put (OUT_FILE_TYPE, “Declarations °“; 

elsif TEMP = 2 then 
put line (OUT FILE TVPE, 'Compiler dir- “); 
put (OUT FILE TXPE, 'ectives i): 

elsif TEMP = 3 then 
put line (OUT. FILE TYPE, "Comments on °“; 
put (OUT. FILE TYPE, "their own line °; 

elsif TEMP = 4 then 
put line (OUT FILE TYPE, "Comments on '5; 
put line(OUT FILE TYPE, "lines with °“; 
put (OUT FILE TYPE, "source code “); 

elsif TEMP — 5 then 
put line (OUT FILE TXVPE, 'Banner and non-”); 
put (OUT_FILE_TYPE, “blank spacers “°; 

elsif TEMP = 6 then 
put line (OUT FILE TVPE, 'Blank (emptv) '); 
put (OUT FILE TYPE, "comments ` °); 

elsif TEMP z 7 then 
put (OUT FILE TYPE, "Blanklines °); 

end if; 


end HEADING, STMT TYPE; 


procedure HEADING. ORGIN (ROW POSITION : positive) is 
TEMP : integer :- ROW POSITION - 1; 
begin 
if TEMP = 0 then 
put_line (OUT_FILE_TYPE, “New Work: no ‘4; 


put (OUT_FILE_TYPE, “prior existence”); 
elsif TEMP = 1 then 
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put. line (OUT. FILE. TYPE, "A previos ver- **); 
put line (OUT FILE TYPE, "sion, build, *5; 
put (OUT. FILE TYPE, *orrelease %); 

elsif TEMP = 2 then 


put (OUT_FILE_TYPE, “COTS со); 
elsif TEMP z 3 then 
put (OUT FILE TYPE, *GFS 8): 


elsif TEMP — 4 then 
put (OUT FILE TYPE, "Another product"); 

elsif TEMP z 5 then 
put line (OUT FILE TYPE, “A vendor suppl-"); 
put line (OUT FILE TVPE, 'ied language °“; 
put (OUT. FILE TYPE, "support library"); 

elsif TEMP = 6 then 
put line (OUT. FILE TYPE, “‘A vendor-suppl-”); 
put line (OUT FILE TYPE, "ied operating °; 
put line (OUT FILE TYPE, "system or “); 
put (OUT FILE TYPE, "utility E 

elsif TEMP = 7 then 
put line (OUT FILE TYPE, "A local or mod-”); 
put, line (OUT. FILE TYPE, “ified language '); 
put. line (OUT FILE TYPE, "support library”); 
put line (OUT FILE TYPE, " or operating °“); 
put (OUT. FILE TYPE, "system de 

elsif TEMP = 8 then 
put_line (OUT_FILE_TYPE, “Other commer- “‘; 
put (OUT_FILE_TYPE, “cial library “); 

elsif TEMP — 9 then 
put line (OUT FILE TVPE, 'A reuse librarv'): 
put line (OUT FILE TYPE, "(software “); 
put line (OUT FILE, TYPE, "designed for “); 
put (OUT. FILE, TYPE, "reuse “); 

elsif TEMP = 10 then 
put line (OUT FILE TVPE, ''Other software “); 
put line (OUT FILE TXVPE, 'componentor °°; 
put (OUT FILE TVPE, ''librarv “у 

end 1f; 


end HEADING ORGIN; 


procedure HEADING. USAGE (ROW POSITION : positive) is 
TEMP : integer := ROW POSITION - 1; 

begin 

if TEMP = 0 then 


put line (OUT FILE TYPE, "In or as part “‘); 
put line (OUT FILE TYPE, “of the primary “): 


190 


put (OUT. FILE TYPE, "product e 

elsif TEMP = 1 then 
put_line (OUT_FILE_TYPE, “External to or °); 
put line (OUT FILE TVPE, 'in support of '); 
put line (OUT FILE TYPE, "the primary ''); 
put (OUT FILE TYPE, "product “); 

end if; 


end HEADING USAGE; 


procedure HEADING. DEV STATUS (ROW POSITION : positive) is 
TEMP : integer: ROW POSITION - 1; 
begin 


if TEMP = 0 then 
put line (OUT. FILE TYPE, "Estimated or “); 
put (OUT. FILE TYPE, “planned E 
elsif TEMP = 1 then 
put (OUT FILE TYPE, Designed “°; 
elsif TEMP - 2 then 
put (OUT FILE TYPE, "Coded Юю): 
elsif TEMP = 3 then 
put_line (OUT_FILE_TYPE, “Unit tests com-”); 
put (OUT_FILE_TYPE, “pleted “ү 
elsif TEMP = 4 then 
put line (OUT FILE TYPE, "Integrated into"); 
put (OUT FILE TYPE, "components “); 
elsif TEMP - 5 then 
put line (OUT FILE TYPE, "Test readiness '); 
put line (OUT. FILE TYPE, "review com- 5 
put (OUT FILE TYPE, “‘pleted i 
elsif TEMP = 6 then 
put, line (OUT. FILE, TYPE, "Software (CSCI)"); 
put (OUT. FILE TYPE, “tests completed”); 
elsif TEMP = 7 then 
put line (OUT FILE TYPE, "System tests “); 
put (OUT. FILE TYPE, "completed — '5; 
end if; 


end HEADING DEV STATUS; 
function FIND PRIORITY F (IN STMT TYPE :in STMT TYPE) return integer is 
COUNTER  .: integer:- 1; 


PRIORITY NUM : integer := 0; 
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begin 
for Fin PRIORITY ARRAY F'range loop 
if PRIORITY ARRAY F (F) Z IN STMT TYPE then 
exit; 
else 
COUNTER := COUNTER + 1; 
end if; 
end loop; 


PRIORITY_NUM := COUNTER; 
return PRIORITY NUM; 


end FIND PRIORITY F; | 


function COUNT TOTAL LINES A (IN COUNT TOTALS : COUNT TOTALS TYPE) return 
natural is 


TEMP : natural; 

begin 

TEMP :- IN COUNT TOTALS.STMT NUMS.EXEC TOTAL + 
IN COUNT TOTALS.STMT NUMS.DEC TOTAL 4 
IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL; 

return TEMP; 


end COUNT. TOTAL LINES A; 


function COUNT TOTAL LINES B (IN COUNT TOTALS : in COUNT TOTALS TVPE) 
return natural is 


TEMP : natural; 
begin 
TEMP : IN COUNT TOTALS.STMT NUMS.EXEC TOTAL * 
IN COUNT TOTALS.STMT NUMS.DEC. TOTAL + 
IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL; 
return TEMP; 


end COUNT. TOTAL LINES B; 
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function COUNT TOTAL LINES C(IN COUNT TOTALS :in COUNT TOTALS TVPE) 
return natural is 


TEMP : natural; 
begin 

TEMP :- IN COUNT TOTALS.STMT NUMS.EXEC TOTAL T 
IN COUNT TOTALS.STMT NUMS.DEC TOTAL 4 
IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL + 
IN COUNT TOTALS.STMT NUMS.CMTS ON OWN TOTAL + 
IN COUNT TOTALS.STMT NUMS.CMTS W SRC TOTAL; 

retum TEMP; 


end COUNT. TOTAL LINES C; 


function COUNT. TOTAL LINES D (IN COUNT TOTALS : in COUNT TOTALS ТҮРЕ) 
return natural is 


TEMP : natural: 
begin 
TEMP :- IN COUNT TOTALS.STMT NUMS.EXEC TOTAL + 
IN COUNT TOTALS.STMT NUMS.DEC TOTAL + 
IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL; 
return TEMP; 


end COUNT TOTAL LINES D; 


funcion COUNT TOTAL LINES E (IN COUNT. TOTALS : in COUNT TOTALS TYPE) 
return natural is 


TEMP : natural; 
begin 
TEMP :-IN COUNT TOTALS.STMT NUMS.EXEC TOTAL + 
IN COUNT TOTALS.STMT NUMS.DEC TOTAL 4 
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IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL 4 
IN COUNT TOTALS.STMT. NUMS.CMTS ON OWN TOTAL + 
IN COUNT TOTALS.STMT NUMS.CMTS W SRC TOTAL; 


return TEMP; 


end COUNT TOTAL LINES E; 


function COUNT. TOTAL LINES F (IN COUNT TOTALS : in COUNT TOTALS TYPE) 
return natural is 


TEMP : natural := 0; 
begin 


if RECORD_FLAGS_F.PANEL3.LINE_1 then 

TEMP := TEMP + IN COUNT TOTALS.STMT NUMS.EXEC TOTAL; 
end if; 
if RECORD FLAGS F.PANEL3.LINE 3 then 

TEMP : TEMP 4 IN COUNT TOTALS.STMT NUMS.DEC TOTAL; 
end if; 
if RECORD FLAGS F.PANEL3.LINE 4 then 

TEMP :— TEMP 4 IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL; 
end if; 
if RECORD FLAGS. F.PANEL3.LINE 6 then 

TEMP := TEMP«IN COUNT TOTALS.STMT NUMS.CMTS ON OWN TOTAL; 
end if; 
if RECORD FLAGS F.PANEL3.LINE 7 then 

TEMP :- TEMP-—-IN COUNT TOTALS.STMT NUMS.CMTS W SRC TOTAL; 
end if; 
if RECORD FLAGS F.PANEL3.LINE 8 then 

TEMP :z TEMP - IN COUNT. TOTALS.STMT. NUMS.BANNER, CMTS. TOTAL; 
end if; 
if RECORD FLAGS. F.PANEL3.LINE, 9 then 

TEMP : TEMP-«IN COUNT TOTALS.STMT NUMS.EMPTY CMTS TOTAL; 
end if; 
if RECORD FLAGS. F.PANEL3.LINE 10 then 

TEMP : TEMP - IN COUNT. TOTALS.STMT NUMS.BLANK LINES TOTAL; 
end if; 


return TEMP; 


end COUNT TOTAL LINES F; 
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procedure PRINT REPORT HEADER 1 15 
MY TEMP : string (1 .. 11) := (others => * *); 
begin 


new_line (OUT_FILE_TYPE); 

put (OUT FILE TYPE," Report Name: °; 

put line (OUT. FILE TYPE, RECORD FLAGS.PANEL2.REPORT. HEADING (1)(1 .. 50)); 
put (OUT ЕП Е ТҮРЕ,“ File List used: “í; 

put line (OUT. FILE TYPE, RECORD FLAGS.PANEL2.IN FILE NAME (1Y(1 .. 50)); 
put (OUT FILE TYPE," Requested by: “°; 

put line (OUT FILE TYPE, RECORD FLAGS.PANEL2.REQUESTOR (1)(1 .. 50)); 
new line (OUT FILE TYPE); 

put line (OUT FILE TYPE, Measured as: Physical source lines “‘); 

new line (OUT FILE TYPE); 

put (OUT FILE TYPE," Delivered as: “); 


MY TEMP :- GLOBAL.RECORD FLAGS.PANEL6.DEL OPTION (1)(1 .. 11); 


if MY TEMP - "Delivered a" then 

put line (OUT. FILE TYPE, "Delivered as source”); 
elsif MY TEMP - "Delivered i" then 

put line (OUT. FILE TYPE, "Delivered in compiled or executable form, but not as source"); 
elsif MY TEMP - "Under conf!" then 

put line (OUT FILE TYPE, "Under configuration control”); 
elsif MY TEMP - "Not under c" then 

put line (OUT. FILE. TYPE, “Not under configuration control"); 
else 

put line (OUT FILE. TYPE, “Don’t care”); 
end if; 


new line (OUT FILE TYPE); 


end PRINT REPORT HEADER 1; 


== 


procedure PRINT REPORT HEADER 2 is 
begin 


new line (OUT FILE TYPE); 
put (OUT FILE TYPE, * в) 
put (OUT FILE TXPE, Total Total Individual’); 
new line (OUT FILE TYPE); 
put (OUT FILE TYPE, * “Y; 


put (OUT_FILE_TYPE, “Includes Excludes totals; 
new_line (OUT_FILE_TYPE); 
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end PRINT REPORT HEADER 2; 


procedure PRINT STMT HEADER is 
begin 


new line (OUT FILE ТҮРЕ); 

put line (OUT FILE TVPE, 'Statement type"); 

put line (OUT FILE TYPE, * Whena line or statement contains more than"); 
put line (OUT FILE TYPE," one type, classify it as the type with the °); 
put line (OUT. FILE TYPE, highest precedence.”); 

new line (OUT FILE TYPE); 


end PRINT STMT HEADER; 


procedure PRINT STMT TYPE 1 IN (IN COUNT. TOTAL : in COUNT TOTALS TYPE; 
REPORT TYPE .:in integer) is 
begin 


put (OUT FILE TYPE, 1 Executables Ргеседепсе => “); 
if REPORT. TYPE » 0 then 
put (OUT. FILE TYPE, ^1”); 
else 
put (OUT. FILE TYPE, FIND PRIORITY F (STMT . TYPE'val (0)), width 2» 1); 
end if; 
put (OUT FILE TYPE," XXXX B 
put (OUT. FILE TYPE, IN COUNT. TOTAL.STMT NUMS.EXEC, TOTAL, width => 10); 
new line (OUT. FILE TYPE); 


end PRINT STMT TYPE 1 IN; 


procedure PRINT STMT TYPE 1 EX (REPORT TYPE : in integer) is 
begin 


put (OUT FILE ТҮРЕ, “ 1 Executables Precedence => ~): 
if REPORT_TYPE > 0 then 
put (OUT_FILE_TYPE, “1”); 
else 
put (OUT_FILE_TYPE, FIND_PRIORITY_F (STMT_TYPE ’ val (0)), width => 1); 
end if; 
put (OUT_FILE_TYPE, “ XXXX 0”); 
new line (OUT FILE TYPE), 


end PRINT STMT. TYPE 1 EX; 
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procedure PRINT STMT ТҮРЕ 215 
begin 


put line (OUT FILE TXVPE, ' 2 Nonexecutables *); 


end PRINT 5ТМТ ТҮРЕ 2; 


procedure PRINT STMT TYPE 3 IN (IN COUNT TOTAL : in COUNT TOTALS ТҮРЕ; 
REPORT TYPE :ininteger) is 
begin 


put (OUT_FILE_TYPE,“3 Declarations у; 
if REPORT. TYPE > 0 then 
put (@UT FILE TYPE, “2”); 
else 
put (OUT. FILE. TYPE, FIND. PRIORITY F (STMT TYPE'val (1)), width => 1); 
end if; 
put(OUT FILE TYPE," XXXX B 
put (OUT. FILE TYPE, IN COUNT TOTAL.STMT NUMS.DEC TOTAL, width —» 10); 
new line (OUT FILE TYPE) 


end PRINT STMT TYPE 3 IN; 


procedure PRINT STMT TYPE 3 EX (REPORT. TYPE : in integer) is 
begin 


put (OUT FILE TYPE,"3 Declarations г) 
if REPORT. TYPE » 0 then 
pur(OUT HILE TYPE, “2”); 
else 
put (OUT FILE TYPE, FIND PRIORITY. F (STMT TYPE 'val (1)), width => 1); 
end if; 
put (OUT. FILE TYPE, * XXXX 0”); 
new line (OUT FILE TYPE); 


end PRINT STMT TYPE 3 EX; 


procedure PRINT STMT TYPE 4 IN(IN COUNT TOTAL : in COUNT TOTALS TYPE; 
REPORT TYPE .:ininteger) is 
begin 
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ри (ООТ ЕШЕ ТУРЕ,“4 Compiler Directives €); 
if REPORT TYPE » 0 then 
put (OUT FILE TYPE, '3'); 
else 
put (OUT FILE TYPE, FIND PRIORITY F (STMT TYPE'val (2)), width => 1); 
end if; 
put (OUT FILE TYPE," XXXX “); 
put (OUT FILE TXPE,IN COUNT TOTAL.STMT NUMS.PRAGMA TOTAL, width <-> 10); 
new line (OUT FILE TYPE); 


end PRINT STMT TYPE 4 IN; 


procedure PRINT STMT. TYPE 4 EX (REPORT. TYPE : in integer) is 
begin 


put (OUT FILE TYPE, ^4 Compiler Directives “Л 
if REPORT. TYPE > 0 then 
put (OUT. FILE TYPE, 3); 
else 
put (OUT. FILE TYPE, FIND PRIORITY F (STMT TYPE'val (2)), width 2» 1); 
end if; 
put (OUT FILE TYPE, “ XXXX 0”); 
new. line (OUT FILE TVPE); 
end PRINT STMT TVPE 4 EX; 


procedure PRINT STMT TVPE 5is 
begin 


put line (OUT FILE TYPE,"*5 Comments ^); 


end PRINT STMT TYPE 5; 


procedure PRINT STMT TYPE 6 IN (IN COUNT. TOTAL : in COUNT. TOTALS TYPE; 
REPORT TYPE :in integer) is 
begin 


put (OUT_FILE_TYPE,“6 On their own lines “; 
if REPORT TVPE 2 O then 
put (OUT. FILE TVPE, '4')); 
else 
put (OUT FILE TYPE, FIND PRIORITY F (STMT TYPE'val (3)), width => 1); 
end if; 
put (OUT FILE TYPE," XXXX “); 
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put (OUT FILE TYPE, IN COUNT. TOTAL.STMT NUMS.CMTS ON OWN TOTAL, width 
=> 10); 
new line (OUT. FILE TYPE); 


end PRINT STMT TYPE 6 IN; 


procedure PRINT STMT TYPE 6 EX (REPORT. TYPE : in integer) is 
begin 


put (OUT FILE TYPE,"6 On their own lines dr 
if REPORT. TYPE » O then 
put (OUT. FILE TYPE, *4^); 
else 
put (OUT FILE TYPE, FIND. PRIORITY F (STMT TYPE'val (3)), width 2» 1); 
end if; 
put (OUT FILE TXPE, ' XXXX 0”); 
new line (OUT FILE TYPE); 


end PRINT STMT TYPE 6 EX; 


procedure PRINT STMT TYPE 7 IN (IN COUNT. TOTAL : in COUNT TOTALS TYPE; 
REPORT TYPE .:in integer) is 
begin 


put (OUT FILE TYPE,"7 On lines with source code y 
if REPORT. TYPE > 0 then 
put (OUT_FILE_TYPE, “5”); 
else 
put (OUT_FILE_TYPE, FIND_PRIORITY_F (STMT_TYPE ’ val (4)), width => 1); 
end if; 
put (OUT_FILE_TYPE,“ ХХХХ “у 
put (OUT FILE TVPE,IN COUNT TOTAL.STMT NUMS.CMTS W SRC TOTAL, width 
=> 10); 
new line (OUT. FILE TYPE); 


end PRINT STMT TYPE 7 IN; 


procedure PRINT STMT TYPE 7 EX (REPORT TYPE : in integer) is 
begin 


put(OUT FILE TYPE,"^7 On lines with source code ta 


if REPORT ТҮРЕ > 0 then 
put (OUT FILE TYPE, “5”); 
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else 
put (OUT FILE TVPE, FIND PRIORITV. F ((STMT. TVPE ’ val (4)), width => 1); 
end if; 
put (OUT. FILE TYPE, * XXXX 0”); 
new line (OUT FILE TYPE); 


end PRINT STMT TYPE 7 EX; 


procedure PRINT STMT TYPE 8 IN(IN COUNT TOTAL : in COUNT TOTALS TYPE; 
REPORT TYPE :in integer) is 
begin 


put (OUT_FILE_TYPE,“8 Banners and nonblank spacers °; 
if REPORT_TYPE > 0 then 
put (OUT_FILE_TYPE, “6”); 
else 
put (OUT. FILE TYPE, FIND PRIORITY F (STMT TYPE'val (5)), width => 1); 
end if; 


put(OUT FILE TYPE," ХХХХ “; 
put (OUT FILE TVPE, IN COUNT TOTAL.STMT NUMS.BANNER CMTS TOTAL, width 
=> 10); 


new line (OUT FILE TYPE); 


end PRINT STMT TYPE 8 IN; 


procedure PRINT STMT TYPE 8 EX (REPORT. TYPE : in integer) is 
begin 


put (OUT FILE TYPE,"8 Banners and nonblank spacers “‘); 
if REPORT_TYPE > 0 then 
put (OUT FILE TVPE, '67); 
else 
put (OUT_FILE_TYPE, FIND_PRIORITY_F (STMT_TYPE ’ val (5)), width => 1); 
end if; 
put (OUT_FILE_TYPE, “ XXXX 0”); 
new_line (OUT_FILE_TYPE); 


end PRINT STMT TYPE 8 EX; 


procedure PRINT STMT TYPE 9 IN (IN COUNT. TOTAL : in COUNT TOTALS TYPE; 
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REPORT TYPE .:in integer) is 
begin 


put (OUT FILE TYPE,"9 Blank (empty) comments > 
if REPORT. TYPE » 0 then 
put (OUT_FILE TYPE, “7”); 
else 
put (OUT_FILE_TYPE, FIND_PRIORITY_F (STMT_TYPE ’ val (6)), width => 1); 
end if; 
put (OUT FILE TYPE," XXXX ae 
put (OUT FILE TYPE, IN COUNT TOTAL.STMT NUMS.EMPTY CMTS TOTAL, width 
=> 10); 
new line (OUT FILE TVPE); 


end PRINT STMT TYPE 9 IN; 


procedure PRINT STMT TYPE 9 EX (REPORT TYPE : in integer) is 
begin 


put (OUT FILE TYPE,"9 Blank (empty) comments e) 
if REPORT TYPE » 0 then 
put (OUT. FILE, TYPE, *7"y; 
else 
put (OUT. FILE TYPE, FIND PRIORITY F (STMT. TYPE'val (6)), width 2» 1); 
end if; 
put (OUT FILE TYPE, * XXXX 0”); 
new line (OUT FILE TVPE), 


end PRINT 5ТМТ ТҮРЕ 9 ЕХ; 


procedure PRINT STMT TYPE 10 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE; 
REPORT TYPE :in integer) is 
begin 


put (OUT_FILE_TYPE, “10 Blank lines “; 
if REPORT. TYPE » 0 then 
put (OUT FILE TYPE, “8”); 
else 
put (OUT. FILE TYPE, FIND. PRIORITY F (STMT . TYPE val (7)), width => 1); 
end if; 
put(OUT FILE TYPE," XXXX “у 
put (OUT ЕШЕ ТҮРЕ,ІМ COUNT TOTAL.STMT NUMS.BLANK LINES TOTAL, width 
=> 10); 
new line (OUT FILE TYPE); 
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end PRINT. STMT TYPE 10 IN; 


procedure PRINT STMT TYPE 10 EX (REPORT. TYPE : in integer) is 
begin 


put (OUT_FILE_TYPE, “10 Blank lines у 
if REPORT. TYPE » 0 then 
put (OUT ЕП.Е ТҮРЕ, “8”); 
else 
put (OUT FILE TXPE, FIND PRIORITV. F (STMT. TVPE'val (7)), width => 1); 
end if; 
put (OUT. FILE TYPE, * XXXX 0”); 
new line (OUT FILE TYPE); 


end PRINT STMT TYPE 10 EX; 


procedure PRINT HOW PRODUCED is 
begin 


new line (OUT FILE TYPE); 
put line (OUT FILE TYPE, "How Produced"); 
new line (OUT FILE TYPE); 


end PRINT HOW PRODUCED; 


procedure PRINT HOW PRODUCED 1 IN (IN COUNT TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
put (OUT. FILE TYPE, * 1 Programmed XXXX p 
put (OUT FILE TYPE, IN COUNT TOTAL.PRODUCED NUMS.PROGRAMMED TOTAL, 
width => 10); 
new line (OUT FILE TVPE); 
end PRINT HOW PRODUCED 1 IN; 


procedure PRINT HOW PRODUCED 1 EX is 

begin 
put (OUT_FILE_TYPE, “1 Programmed XXXX 0”); 
new line (OUT FILE TYPE); 

end PRINT HOW PRODUCED 1 EX; 
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procedure PRINT HOW PRODUCED 2 IN (IN COUNT TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
put (OUT FILE TYPE, ** 2 Generated with source code generators ХХХХ Ө); 
put (OUT FILE TVPE,IN COUNT TOTAL.PRODUCED NUMS.GENERATED TOTAL, 
width => 10); 
new line (OUT FILE TVPE); 
end PRINT HOW PRODUCED 2 IN; 


procedure PRINT HOW PRODUCED 2 EX is 

begin 
put (OUT FILE TYPE, * 2 Generated with source code generators XXXX Ux 
new line (OUT FILE TYPE); 


end PRINT HOW PRODUCED 2 EX; 


= = 


procedure PRINT HOW PRODUCED 3 IN (IN COUNT TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
put (OUT. FILE TYPE, * 3 Converted with automated translators XXXX Sl; 
put (OUT FILE TYPE, IN COUNT TOTAL.PRODUCED NUMS.CONVERTED TOTAL, 
width => 10); | 
new line (OUT. FILE TYPE); 


end PRINT HOW PRODUCED 3 IN; 


procedure PRINT HOW PRODUCED 3 EX is 

begin 
put (OUT. FILE TYPE, * 3 Converted with automated translators XXXX 0”); 
new line (OUT FILE TYPE); 


end PRINT HOW PRODUCED 3 EX; 


procedure PRINT HOW  PRODUCED 4 IN (IN COUNT TOTAL : in 
COUNT TOTALS TYPE),is 
begin 
put (OUT FILE TYPE, 4 Copied or reused without change XXXX y 
put (OUT. FILE TYPE, IN COUNT TOTAL.PRODUCED NUMS.COPIED TOTAL, width 
=> 10); 
new line (OUT FILE TYPE); 


end PRINT HOW PRODUCED 4 IN; 
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procedure PRINT HOW PRODUCED 4 EX is 

begin 
put (OUT. FILE TYPE, * 4 Copied or reused without change XXXX 0"); 
new. line (OUT. FILE TYPE); 


end PRINT HOW PRODUCED 4 EX; 


procedure PRINT HOW PRODUCED 5 IN (IN COUNT. TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
put (OUT FILE TYPE, * 5 Modified XXXX E 
put (OUT. FILE TYPE, IN COUNT. TOTAL. PRODUCED. NUMS.MODIFIED_TOTAL, 
width => 10); 
new line (OUT FILE TYPE); 


end PRINT HOW PRODUCED 5 IN, 


procedure PRINT HOW PRODUCED 5 EX is 

begin 
put (OUT FILE TYPE, 5 Modified XXXX 0”); 
new. line (OUT FILE ТҮРЕ); 


end PRINT HOW. PRODUCED 5 EX; 


procedure PRINT HOW PRODUCED 6 IN(IN COUNT TOTAL : in 
COUNT TOTALS TVPE) is 
begin 
put (OUT FILE TYPE, * 6 Removed XXXX rr 
put (OUT. FILE TYPE, IN COUNT TOTAL.PRODUCED NUMS.REMOVED TOTAL, 
width => 10); 
new line (OUT FILE TYPE); 


end PRINT HOW PRODUCED 6 IN; 


procedure PRINT HOW PRODUCED 6 EX is 

begin 
put (OUT FILE TYPE, * 6 Removed XXXX 0”); 
new line (OUT FILE TYPE); 

end PRINT HOW PRODUCED 6 EX; 


204 


-- 


procedure PRINT ORGIN is 

begin 
new line (OUT FILE TYPE); 
put line (OUT FILE TYPE, "Orgin"); 
new line (OUT FILE TYPE); 

end PRINT ORGIN; 


procedure PRINT ORGIN 1 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE) is 
begin 
put (OUT FILE TYPE," 1 New Work: no prior existence XXXX “ү 
put (OUT FILE TXPE,IN COUNT TOTAL.ORGIN NUMS.NEW WORK TOTAL, width 
=> 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 1 IN; 


procedure PRINT ORGIN 1 EX is 


begin 
put (OUT FILE TYPE," 1 New Work: no prior existence ХХХХ”); 
put line (OUT FILE TYPE, * 0”); 


end PRINT ORGIN 1 ЕХ; 


procedure PRINT ORGIN 2 is 
begin 

put line (OUT FILE TYPE, “ 2 Prior work: taken or adapted from '); 
end PRINT ORGIN 2; 


procedure PRINT ORGIN 3 IN (IN COUNT TOTAL :in COUNT TOTALS ТҮРЕ) 15 
begin 
put (OUT FILE TYPE,"3 A previous version, build, or release XXXX үр 
put (OUT FILE TYPE, 
IN COUNT. TOTAL.ORGIN NUMS.PREVIOUS VERSION TOTAL, width —» 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 3 IN; 


procedure PRINT ORGIN 3 EX is 


begin 
put (OUT FILE TYPE,"3 A previous version, build, or release ХХХХ”); 
put line (OUT FILE TVPE, ' 0”); 
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end PRINT ORGIN 3 EX; 


procedure PRINT ORGIN, 4 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE)is 
begin 
put line (OUT FILE TYPE, "4 Commercial, off the shelf software"); 
put (OUT. FILE TYPE," COTS), other than libraries XXXX E 
put (OUT. FILE TYPE, IN COUNT TOTAL.ORGIN NUMS.COTS. TOTAL, width => 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 4 IN; 


procedure PRINT ORGIN 4 EX is 

begin 
put line (OUT FILE TYPE,"4 Commercial, off the shelf software"); 
put (OUT FILE TYPE," COTS), other than libraries XXXX”); 
put_line (OUT_FILE_TYPE, “ 0”); 

end PRINT_ORGIN_4_EX; 


procedure PRINT_ORGIN_5_IN (IN_COUNT_TOTAL : in COUNT_TOTALS_TYPE) is 
begin 
put_line (OUT_FILE_TYPE, “5 Government furnished software (GFS),”); 
put (OUT FILE TYPE," other than reuse libraries XXXX E 
put (OUT. FILE TYPE, IN COUNT TOTAL.ORGIN NUMS.GFS TOTAL, width => 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 5 IN; 


procedure PRINT ORGIN 5 EX is 


begin 
put (OUT FILE TVXPE,'5 Government furnished software (GFS),”); 
put (OUT FILE TYPE," other than reuse libraries ХХХХ”); 
put line (OUT FILE TYPE, * у; 


end PRINT ORGIN 5 EX; 


procedure PRINT ORGIN 6 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE) is 
begin 
put (OUT FILE TYPE," 6 Another product XXXX “у: 
put (OUT FILE TVPE, 
IN COUNT TOTAL.ORGIN NUMS.ANNOTHER PRODUCT TOTAL, width 22 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 6 IN; 
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procedure PRINT. ORGIN 6 EX is 


begin 
put ПОТЕ TYPE, “6 Another product NOS. 
put line (OUT FILE TYPE, '* 0”): 


end PRINT ORGIN 6 EX, 


procedure PRINT ORGIN 7 IN (IN COUNT TOTAL :in COUNT TOTALS TYPE)is 


begin 
put line(OUT FILE ТҮРЕ,“7 А vendor-supplied language support"); 
put (OUT FILE TYPE," library (unmodified) XXXX E 


put (OUT. FILE TYPE, IN COUNT. TOTAL.ORGIN NUMS.VS SPT LIB TOTAL, width => 
10); 
new line (OUT FILE ТҮРЕ); 
end PRINT ORGIN 7. IN; 


procedure PRINT ORGIN 7 EX is 


begin 
put line (OUT. FILE TYPE,"7 А vendor-supplied language support”); 
put (OUT FILE TYPE," library (unmodified) OOO, 
put line (OUT FILE TYPE, " 0”); 


end PRINT ORGIN 7 EX, 


procedure PRINT ORGIN 8 IN(IN COUNT TOTAL :in COUNT TOTALS TVPE)is 
begin 
put line (OUT FILE TVPE, ''8: A vedor-supplied operating system or"); 
put (OUT FILE TYPE," utility (unmodified) XXXX “у: 
put (OUT FILE TYPE, IN COUNT TOTAL.ORGIN NUMS.VS SPT OS TOTAL, width +-> 
10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN $8 IN; 


procedure PRINT ORGIN 8 EX is 


begin 
put line (OUT FILE TYPE, "8 А vedor-supplied operating system or"); 
put(OUT FILE TYPE," utility (unmodified) XXXX jy 
put line (OUT FILE TYPE, " 0”); 


end PRINT ORGIN 8 EX; 


procedure PRINT ORGIN. 9 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE)is 
begin 
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put line (OUT. FILE TYPE, *9 A local or modified language support”); 
put (OUT FILE TYPE," library or operating system XXXX pr 
put (OUT_FILE_TYPE, 
IN_COUNT_TOTAL.ORGIN_NUMS.LOCAL_SUPPLIED_LIB_TOTAL, width => 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 9 IN; 


procedure PRINT ORGIN 9 EX is 


begin 
put line (OUT FILE TYPE, ^9 Alocal or modified language support”); 
put (OUT FILE TYPE," library or operating system ХХХХ”); 
put line (OUT FILE TYPE, * 0”); 


end PRINT ORGIN 9 EX; 


procedure PRINT ORGIN 10 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE) is 
begin 
put (OUT. FILE TYPE, 10 Other commercial library XXXX «ye 
put (OUT FILE TYPE, IN COUNT TOTAL.ORGIN NUMS.COMMERCIAL LIB TOTAL, 
width —» 10); 
new. line (OUT. FILE TYPE); 
end PRINT ORGIN 10 IN; 


procedure PRINT ORGIN 10 EX is 


begin 
put (OUT FILE TYPE,"10 Other commercial library ХХХХ”); 
put line (OUT FILE ТҮРЕ, “ 0"); 


end PRINT ORGIN, 10 EX; 


procedure PRINT ORGIN 11 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE) is 
begin 

put line (OUT. FILE TYPE, *11 A reuse library (software designed”); 

put (OUT FILE TYPE,"  forreuse) ХХХХ E 

put (OUT FILE TYPE, IN COUNT  TOTAL.ORGIN NUMS.REUSE LIB TOTAL, width —» 

10); 

new line (OUT FILE TYPE); 

end PRINT ORGIN 11 IN; 


procedure PRINT ORGIN 11 EX is 


begin 
put line (OUT FILE, TYPE, *11 A reuse library (software designed"); 
put (OUT FILE TYPE, for reuse) XXXX '), 
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puteline (OUT. FILE TYPE, * 0”); 
end PRINT ORGIN 11 EX; 


- = 


procedure PRINT ORGIN 12 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE) is 
begin 
put (OUT FILE TYPE, 12 Other software component or library ХХХХ чи 
put (OUT FILE TYPE, 
IN COUNT TOTAL.ORGIN NUMS.OTHER COMPONENT. TOTAL, width -> 10); 
new line (OUT FILE TYPE); 
end PRINT ORGIN 12 IN; 


procedure PRINT ORGIN 12 EX is 


begin 
put (OUT_FILE_TYPE, “12 Other software component or library ХХХХ”); 
put line (OUT FILE TVPE, ' 0”); 


end PRINT ORGIN 12 EX; 


procedure PRINT USAGE is 

begin 
new. line (OUT FILE ТҮРЕ); 
put line (OUT. FILE TYPE, 'Usage'); 
new line (OUT FILE TYPE); 

end PRINT USAGE; 


procedure PRINT USAGE 1 IN (IN COUNT TOTAL : in COUNT TOTALS TYPE)is 
begin 
put (OUT FILE TYPE, 1 Inor as part of the primary product XXXX 8); 
put (OUT FILE TXPE, 
IN COUNT TOTAL.USAGE NUMS.PRIMARY PRODUCT TOTAL, width 2» 10); 
new line (OUT FILE TYPE); 
end PRINT USAGE. 1 IN; 


procedure PRINT USAGE 1 EXis 

begin 
put (OUT. FILE TYPE, * 1 Inor as part of the primary product XXXX 0”); 
new line (OUT FILE TYPE); 

end PRINT USAGE 1 EX; 
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procedure PRINT USAGE 2 IN (IN, COUNT TOTAL : in COUNT TOTALS TYPE)is 


begin 
put line (OUT. FILE TYPE, * 2 External to or in support of the"); 
put (OUT FILE TYPE," primary product XXXX “у, 


put (OUT FILE TYPE, IN COUNT. TOTAL.USAGE NUMS.EXTERNAL , TOTAL, width 2» 
10); 
new line (OUT FILE TYPE); 
end PRINT. USAGE 2 IN; 


procedure PRINT USAGE 2 EX is 


begin 
put line (OUT FILE TYPE, * 2 External to or in support of the"); 
put (OUT FILE _ ТҮРЕ,“ primary product | XXXX 0”); 


new line (OUT FILE TYPE); 
end PRINT USAGE 2 EX; 


procedure PRINT DEVELOPMENT. STATUS is 
begin 
new line (OUT. FILE TYPE); 
put line (OUT FILE TYPE, "Development Status"); 
new line (OUT FILE TYPE); 
end PRINT DEVELOPMENT. STATUS; 


procedure PRINT DEVELOPMENT. STATUS, 1 IN (IN COUNT TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
put (OUT. FILE TYPE, * 1 Estimated or planned XXXX E 
put (OUT. FILE TYPE, IN COUNT TOTAL.DEVELOPED NUMS.ESTIMATED TOTAL, 
width 2» 10); 
new line (OUT. FILE TYPE); 
end PRINT DEVELOPMENT. STATUS 1 IN; 


procedure PRINT DEVELOPMENT STATUS 1 EX is 


begin 
put (OUT FILE TYPE, 1 Estimated or planned ХХХХ”); 
put line (OUT FILE TVPE, ' 0”); 


end PRINT DEVELOPMENT. STATUS 1 EX; 


procedure PRINT DEVELOPMENT STATUS 2 IN (IN COUNT. TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
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put (OUT. FILE TYPE, * 2 Designed XXXX "ү 
put (OUT. FILE TYPE, IN COUNT. TOTAL.DEVELOPED. NUMS.DESIGNED TOTAL, 
width => 10); 
new_line (OUT_FILE_TYPE); 
end PRINT DEVELOPMENT STATUS 2 IN; 


procedure PRINT DEVELOPMENT. STATUS 2 EX is 


begin 
put (OUT FILE TXPE, '2 Designed ХХХХ”); 
put line (OUT. FILE, TYPE, * 0”); 


end PRINT DEVELOPMENT. STATUS 2 EX; 


procedure PRINT DEVELOPMENT. STATUS 3 IN(IN COUNT TOTAL :in 
COUNT. TOTALS ТУРЕ) 15 
begin 
put (OUT. FILE TYPE, *3 Coded XXXX ү 
put (OUT. FILE TYPE, IN COUNT. TOTAL.DEVELOPED NUMS.CODED TOTAL, width 
=> 10); 
new line (OUT FILE, TYPE); 
end PRINT. DEVELOPMENT, STATUS 3 IN; 


procedure PRINT DEVELOPMENT STATUS 3 EX is 

begin 
put (OUT. FILE TYPE, * 3 Coded ХХХХ”); 
put line (OUT FILE TVPE, ' 0”); 

end PRINT DEVELOPMENT STATUS 3 EX; 


procedure PRINT DEVELOPMENT STATUS 4 IN(IN COUNT TOTAL :in 
COUNT TOTALS ТҮРЕ) 15 
begin 
put (OUT. FILE TYPE, * 4 Unit tests completed XXXX у 
put (OUT. FILE. TYPE, 
IN COUNT TOTAL.DEVELOPED NUMS.UNIT. TEST. DONE TOTAL, width —» 10); 
new line (OUT FILE TYPE); 
end PRINT DEVELOPMENT. STATUS 4 IN; 


procedure PRINT DEVELOPMENT. STATUS 4 EX is 


begin 
put (OUT. FILE, TYPE, * 4 Unit tests completed XXXX"y 
put line (OUT FILE TYPE, * D 


end PRINT DEVELOPMENT STATUS 4 EX; 
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procedure PRINT DEVELOPMENT STATUS 5 IN(IN COUNT TOTAL :in 
COUNT TOTALS TYPE)is 
begin 
put (OUT. FILE TYPE, * 5 Integrated into components XXXX “у 
put (OUT FILE TYPE, IN COUNT TOTAL.DEVELOPED NUMS.INTEGRATED TOTAL, 
width => 10); 
new_line (OUT_FILE_TYPE); 
end PRINT_DEVELOPMENT_STATUS_5_IN; 


procedure PRINT DEVELOPMENT STATUS 5 EX is 


begin 
put (OUT. FILE TYPE, * 5 Integrated into components XXXX"y; 
put line (OUT FILE TYPE, "* 0”); 


end PRINT DEVELOPMENT STATUS 5 EX; 


procedure PRINT DEVELOPMENT STATUS 6 IN (IN COUNT TOTAL : in 
COUNT TOTALS TYPE) is 
begin 
put (OUT FILE TYPE, “ 6 Test readiness review completed XXXX “у 
put (OUT FILE TYPE, 
IN COUNT TOTAL.DEVELOPED NUMS.TEST READINESS REVIEW TOTAL, width 2 
10); 
new line (OUT FILE TYPE); 
end PRINT DEVELOPMENT STATUS 6 IN; 


procedure PRINT DEVELOPMENT STATUS 6 EX is 


begin 
put (OUT. FILE TYPE, * 6 Test readiness review completed ХХХХ”); 
put line (OUT FILE ТҮРЕ, “ 0”); 


end PRINT DEVELOPMENT STATUS 6 EX; 


procedure PRINT DEVELOPMENT STATUS 7 IN(IN COUNT TOTAL :in 
COUNT_TOTALS_TYPE) is 
begin 
put (OUT FILE TXPE,''7 Software (CSCI) tests completed XXXX "y 
put (OUT FILE TYPE, 
IN COUNT. TOTAL.DEVELOPED NUMS.CSCI COMPLETED TOTAL, width => 10); 
new line (OUT. FILE TYPE); 
end PRINT DEVELOPMENT STATUS 7 IN; 
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procedure PRINT DEVELOPMENT. STATUS 7 EX is 


begin 
put (OUT. FILE TYPE, *7 Software (CSCI) tests completed XXXX ); 
put line (OUT. FILE TYPE, * 0”); 


end PRINT DEVELOPMENT. STATUS 7 EX; 


* 9» 


procedure PRINT DEVELOPMENT. STATUS. 8 IN (IN COUNT. TOTAL : in 
COUNT TOTALS TYPE)is 
begin 
put (OUT. FILE TYPE, * 8 System tests completed XXXX Сү 
put(OUT FILE TYPE, IN COUNT TOTAL.DEVELOPED NUMS.SYSTEM TEST TOTAL, 
width —» 10); 
new line (OUT. FILE TYPE); 
end PRINT DEVELOPMENT STATUS 8 ІМ; 


a 


procedure PRINT DEVELOPMENT STATUS 8 EX is 


begin 
put (OUT. FILE TYPE, * 8 System tests completed ХХХХ”); 
put line (OUT FILE TVPE, ' 0”); 


end PRINT DEVELOPMENT STATUS 8 EX; 


procedure PRINT DATA, ARRAY F is 
begin 


-- check for 3D arrays 
if RECORD FLAGS F.PANEL3.DEF DATA, ARRAY and 
RECORD FLAGS F.PANELA.DEF DATA ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 
RETRIEVE 1 2D.INTERFACE. 3D MAT (REPORT Е); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA ARRAY and 
RECORD FLAGS  F.PANELA.DEF. DATA ARRAY and 
RECORD FLAGS F.PANEL6.DEF DATA ARRAY then 
RETRIEVE 2 2D.INTERFACE 3D MAT (REPORT. F); 
end if; 
if RECORD FLAGS. F.PANEL3.DEF DATA ARRAY and 
RECORD FLAGS. F.PANELA.DEF DATA. ARRAY and 
RECORD FLAGS F.PANEL9.DEF DATA, ARRAY then 
RETRIEVE 8 2D.INTERFACE 3D MAT (REPORT F); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA ARRAY and 
RECORD FLAGS F.PANEL6.DEF DATA, ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA, ARRAY then 
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RETRIEVE. 5 2D.INTERFACE 3D MAT (REPORT Б); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA ARRAY and 
RECORD FLAGS F.PANEL9.DEF DATA ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 
RETRIEVE 6 2D.INTERFACE 3D MAT (REPORT F); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA, ARRAY and 
RECORD FLAGS F.PANEL6.DEF DATA. ARRAY and 
RECORD FLAGS F.PANEL9.DEF DATA ARRAY then 
RETRIEVE, 9 2D.INTERFACE 3D MAT (REPORT F); 
end if; 
if RECORD FLAGS F.PANEL6.DEF DATA. ARRAY and 
RECORD FLAGS. F.PANELA.DEF DATA, ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 
RETRIEVE 1 3D. INTERFACE 3D MAT (REPORT F); 
end if; 
if RECORD FLAGS F.PANELO.DEF DATA ARRAY and 
RECORD FLAGS. F.PANELA.DEF DATA ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 
RETRIEVE 3 3D.INTERFACE 3D MAT (REPORT Р); 
end if; 
if RECORD FLAGS F.PANEL6.DEF DATA ARRAY and 
RECORD FLAGS F.PANELA.DEF. DATA ARRAY and 
RECORD FLAGS F.PANEL9.DEF DATA ARRAY then 
RETRIEVE 2 3D.INTERFACE 3D MAT (REPORT F); 
end if; 
if RECORD FLAGS F.PANEL9.DEF DATA ARRAY and 
RECORD FLAGS. F.PANEL6.DEF DATA ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 
RETRIEVE. 4 3D.INTERFACE 3D MAT (REPORT F); 
end if; 


-- check for 2D arrays 
if RECORD FLAGS F.PANEL3.DEF DATA ARRAY ала 
RECORD FLAGS F.PANELA.DEF DATA ARRAY then 
RETRIEVE 1 2D.INTERFACE 2D MAT (REPORT. F); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 
RETRIEVE 4 2D.INTERFACE 2D MAT (REPORT Б); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA, ARRAY and 
RECORD FLAGS F.PANEL6.DEF DATA ARRAY then 
RETRIEVE 2 2D.INTERFACE 2D MAT (REPORT F); 
end if; 
if RECORD FLAGS F.PANEL3.DEF DATA, ARRAY and 
RECORD FLAGS F.PANEL9.DEF DATA ARRAY then 
RETRIEVE 8 2D.INTERFACE 2D MAT (REPORT. F); 
end if; 
if RECORD_FLAGS_F.PANEL4.DEF_DATA_ARRAY and 
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RECORD FLAGS F.PANELS.DEF, DATA ARRAY then 

RETRIEVE 3 2D.INTERFACE 2D MAT (REPORT. F); 

end if; 

if RECORD FLAGS F.PANELA.DEF DATA, ARRAY and 
RECORD FLAGS F.PANEL6.DEF DATA ARRAY then 

RETRIEVE 7 2D.INTERFACE 2D MAT (REPORT. F); 

end if; 

if RECORD FLAGS F.PANELA.DEF DATA. ARRAY and 
RECORD FLAGS. F.PANEL9.DEF DATA ARRAY then 

RETRIEVE 10 2D.INTERFACE 2D MAT (REPORT. F); 

end if; 

if RECORD FLAGS F.PANEL6.DEF DATA. ARRAY and 
RECORD FLAGS F.PANELS.DEF DATA ARRAY then 

RETRIEVE 5 2D.INTERFACE 2D MAT (REPORT. F); 

end if; 

if RECORD FLAGS F.PANELS.DEF DATA, ARRAY and 
RECORD. FLAGS. F.PANEL9.DEF DATA, ARRAY then 

RETRIEVE. 6 2D.INTERFACE 2D MAT (REPORT F); 

end if; 

if RECORD FLAGS F.PANEL9.DEF DATA, ARRAY and 
RECORD. FLAGS. F.PANEL6.DEF, DATA, ARRAY then 

RETRIEVE 9 2D.INTERFACE 2D MAT (REPORT. F); 

end if; 


end PRINT DATA ARRAY F; 


funcion COUNT STMT. TYPE (S :in STMT TYPE; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) retur integer is 


TEMP COUNT : integer :- 0; 
begin 


for Hin HOW PRODUCED'FIRST .. HOW PRODUCED'LAST loop 
for O in ORGIN' FIRST .. ORGIN'LAST loop 
for U in USAGE FIRST .. USAGE'LAST loop 
for Din DEVELOPMENT. STATUS'FIRST .. DEVELOPMENT STATUS'LAST loop 
TEMP COUNT :- TEMP COUNT * IN COUNT ARRAY (S, H,O, U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT STMT TYPE; 
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function COUNT HOW. PRODUCED (H :in HOW PRODUCED; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 


TEMP COUNT : integer :- 0; 
begin 


for Sin STMT TYPE'FIRST .. STMT TYPE'LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for U in USAGE’FIRST .. USAGE’LAST loop 
for Din DEVELOPMENT STATUS'FIRST .. DEVELOPMENT STATUS'LAST loop 
TEMP COUNT :- TEMP COUNT «* IN COUNT ARRAY (S,H, Q,U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT HOW PRODUCED; 


function COUNT. ORGIN (O : in ORGIN; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 


TEMP COUNT .: integer :- 0; 
begin 


for 5 in STMT TYPE' FIRST .. STMT TYPE'LAST loop 
for Hin HOW PRODUCED'FIRST .. HOW PRODUCED'LAST loop 
for Ú in USAGE FIRST .. USAGE'LAST loop 
for Din DEVELOPMENT. STATUS FIRST .. DEVELOPMENT STATUS'LAST loop 
TEMP. COUNT :- TEMP COUNT * IN COUNT ARRAY (S,H, O,U, Dy 
end loop; 
end loop; 
end loop; 
end loop; 


retum TEMP COUNT; 


end COUNT ORGIN; 


function COUNT USAGE (U : in USAGE; 
IN COUNT ARRAY : in COUNT ARRAY TYPE) return integer is 


TEMP COUNT : integer :- 0; 
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Беріп 


for Sin STMT_TYPE’FIRST .. STMT_TYPE’LAST loop 
for Hin HOW PRODUCED'FIRST .. HOW PRODUCED'LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for Din DEVELOPMENT STATUS'FIRST .. DEVELOPMENT STATUS LAST loop 
TEMP COUNT :: TEMP COUNT «4 IN COUNT ARRAY (S, H, O, U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT USAGE; 


funcion COUNT. DEVELOPMENT STATUS (D :in DEVELOPMENT STATUS; 
IN COUNT ARRAY :in COUNT ARRAY TYPE) return integer is 


TEMP COUNT : integer := 0; 
begin 


for Sin STMT_TYPE’FIRST .. STMT_TYPE’LAST loop 
for Hin HOW PRODUCED' FIRST .. HOW PRODUCED'LAST loop 
for O in ORGIN'FIRST .. ORGIN'LAST loop 
for U in USAGE' FIRST .. USAGE'LAST loop 
TEMP COUNT :- TEMP COUNT «* IN COUNT ARRAY (S,H, O, U, D); 
end loop; 
end loop; 
end loop; 
end loop; 


return TEMP COUNT; 


end COUNT DEVELOPMENT STATUS; 


procedure COUNT ATTRIBUTE ONE (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : inout COUNT TOTALS TYPE; 
IN ARRAY :in. COUNT ARRAY TYPE)is 

begin 


if IN RECORD FLAGS.PANEL3.ine 1 then 
IN COUNT TOTALS.STMT NUMS.EXEC TOTAL :: COUNT STMT TYPE 
(STMT TYPE'val (0, IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line. 3 then 
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IN COUNT. TOTALS.STMT NUMS.DEC TOTAL : COUNT STMT TYPE 
(STMT. TYPE'val (1), IN ARRAY); 
end if; 
ifIN RECORD FLAGS.PANEL3.line 4 then 
IN COUNT TOTALS.STMT NUMS.PRAGMA TOTAL : COUNT STMT TYPE 
(STMT. TYPE'val (2), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL2.line. 6 then 
IN COUNT. TOTALS.STMT NUMS.CMTS ON OWN TOTAL := 
COUNT STMT TYPE (STMT TYPE'val (3, IN ARRAY); 
end if; 
if IN RECORD. FLAGS.PANEL3.line 7 then 
IN COUNT TOTALS.STMT NUMS.CMTS W SRC TOTAL :- 
COUNT. STMT TYPE (STMT TYPE'val (4), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL32.line 8 then 
IN COUNT TOTALS.STMT NUMS.BANNER, CMTS TOTAL :z 
COUNT. STMT TYPE (STMT TYPE val (5, IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL2.line 9 then 
IN COUNT. TOTALS.STMT. NUMS.EMPTY CMTS TOTAL := 
COUNT STMT TYPE (STMT TYPE'val (6), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL3.line 10 then 
IN COUNT TOTALS.STMT NUMS.BLANK LINES TOTAL :- 
COUNT STMT TYPE (STMT TYPE'val (7, IN ARRAY); 
end if; 


end COUNT ATTRIBUTE ONE; 


procedure COUNT. ATTRIBUTE TWO (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
IN ARRAY :ш COUNT ARRAY TYPE)is 

begin 


if IN RECORD FLAGS.PANEL4.line_1 then 
IN_COUNT_TOTALS.PRODUCED_NUMS.PROGRAMMED_TOTAL := 
COUNT HOW. PRODUCED (HOW PRODUCED"'val (0), IN ARRAY); 
end if; 
if IN RECORD_FLAGS.PANEL4.line_2 then 
IN_COUNT_TOTALS.PRODUCED_NUMS.GENERATED_TOTAL := 
COUNT HOW PRODUCED (HOW PRODUCED'"'val (1), IN ARRAY); 
end if; 
if IN RECORD_FLAGS.PANEL4.line_3 then 
IN COUNT TOTALS.PRODUCED NUMS.CONVERTED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED"'val (2), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELA.line 4 then 
IN COUNT TOTALS.PRODUCED NUMS.COPIED TOTAL :- 
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COUNT HOW PRODUCED (HOW PRODUCED 'val (3), IN АККАҮ); 
end if; 
if IN RECORD FLAGS.PANELA.line. 5 then 
IN COUNT TOTALS.PRODUCED NUMS.MODIFIED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED"'val (4), IN ARRAY), 
end if; 
if IN RECORD FLAGS.PANELA.line 6 then 
IN COUNT. TOTALS.PRODUCED NUMS.REMOVED TOTAL :- 
COUNT HOW PRODUCED (HOW PRODUCED'val (5), IN ARRAY); 
end if; 


end COUNT ATTRIBUTE TWO; 


procedure COUNT ATTRIBUTE, THREE (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
IN ARRAY >in COUNT ARRAY TYPE) is 

begin 


if IN RECORD FLAGS.PANELS.line 1 then 
IN COUNT TOTALS.ORGIN NUMS.NEW WORK TOTAL :- COUNT ORGIN 
(ORGIN'val (0), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 3 then 
IN COUNT TOTALS.ORGIN NUMS.PREVIOUS VERSION TOTAL :- 
COUNT. ORGIN (ORGIN'val (1), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 4 then 
IN COUNT TOTALS.ORGIN NUMS.COTS, TOTAL :- COUNT. ORGIN (ORGIN val (2), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS5.line 5 then 
IN COUNT TOTALS.ORGIN NUMS.GFS TOTAL : COUNT ORGIN (ORGIN'val (3), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 6 then 
IN COUNT. TOTALS.ORGIN. NUMS.ANNOTHER PRODUCT TOTAL :- 
COUNT. ORGIN (ORGIN'val (4), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS5.line 7 then 
IN COUNT. TOTALS.ORGIN NUMS.VS SPT LIB TOTAL :- COUNT. ORGIN 
(ORGIN'val (5), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL5.line 8 then 
IN COUNT TOTALS.ORGIN NUMS.VS SPT OS TOTAL :: COUNT. ORGIN 
(ORGIN'val (6), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 9 then 
IN COUNT TOTALS.ORGIN. NUMS.LOCAL SUPPLIED LIB TOTAL :- 
COUNT. ORGIN (ORGIN'val (7), IN ARRAY); 
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end if; 
if IN RECORD FLAGS.PANELS.line 10 then 
IN COUNT TOTALS.ORGIN NUMS.COMMERCIAL LIB TOTAL :z 
COUNT. ORGIN (ORGIN'val (8), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 11 then 
IN COUNT. TOTALS.ORGIN NUMS.REUSE, LIB TOTAL : COUNT ORGIN 
(ORGIN'val (9), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELS.line 12 then 
IN COUNT TOTALS.ORGIN NUMS.OTHER, COMPONENT TOTAL :z 
COUNT. ORGIN (ORGIN'val (10), IN ARRAY); 
end if; 


end COUNT ATTRIBUTE THREE; 


procedure COUNT. ATTRIBUTE FOUR (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
IN ARRAY :in. COUNT ARRAY TYPE) is 

begin 


if IN RECORD FLAGS.PANELO.line, 1 then 
IN COUNT TOTALS.USAGE NUMS.PRIMARY PRODUCT TOTAL :- 
COUNT USAGE (USAGE'val (0), IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO.line 2 then 
IN COUNT. TOTALS.USAGE NUMS.EXTERNAL TOTAL :: COUNT. USAGE 
(USAGE val (1), IN ARRAY); 
end if; 


end COUNT ATTRIBUTE FOUR; 


procedure COUNT ATTRIBUTE FIVE (IN RECORD FLAGS :in FLAGS; 
IN COUNT TOTALS : in out COUNT TOTALS TYPE; 
IN ARRAY :in. COUNT ARRAY TYPE)is 

begin 


if IN RECORD FLAGS.PANELO9.ine 1 then 
IN COUNT TOTALS.DEVELOPED NUMS.ESTIMATED TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS'val (0), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO.line 2 then 
IN COUNT TOTALS.DEVELOPED NUMS.DESIGNED TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT. STATUS'val (1), 
IN ARRAY); 
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елд ІҒ; 
if IN RECORD FLAGS.PANELJ9. line 3 then 
IN COUNT. TOTALS.DEVELOPED NUMS.CODED TOTAL :z 
COUNT DEVELOPMENT. STATUS (DEVELOPMENT. STATUS уа! (2), 
IN ARRAY), 
end if; 
if IN RECORD FLAGS.PANELO.line 4 then 
IN COUNT TOTALS.DEVELOPED NUMS.UNIT TEST DONE TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT. STATUS 'val (3), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANELO9.line 5 then 
IN COUNT TOTALS.DEVELOPED NUMS.INTEGRATED TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS val (4), 
IN ARRAY); 
end if; 
if IN RECORD FLAGS.PANEL9 line 6 then 
IN COUNT TOTALS.DEVELOPED NUMS.TEST READINESS REVIEW TOTAL: 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS 'val (5), 
IN ARRAY); 
end if; 
ifIN RECORD FLAGS.PANELJ9.line 7 then 
IN COUNT TOTALS.DEVELOPED NUMS.CSCI COMPLETED TOTAL :- 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS "уа! (6), 
IN ARRAV); 
end if; 
if IN RECORD FLAGS.PANELO2O.line 8 then 
IN COUNT TOTALS.DEVELOPED NUMS.SYSTEM TEST TOTAL :z 
COUNT DEVELOPMENT STATUS (DEVELOPMENT STATUS val (7), 
IN ARRAY); 
end if; 


end COUNT ATTRIBUTE FIVE; 


procedure REPORT. A (COUNT TOTALS A:inout COUNT TOTALS TYPE)is 


REPORT A FLAG  .: integer: 1; 
ESTIMATED TOTAL : DEVELOPMENT STATUS : DEVELOPMENT STATUS 'val(0); 


begin 


new line (OUT FILE TYPE, 2); 
put line (OUT FILE TYPE, * REPORT A"); 


PRINT REPORT HEADER 1; 


new line (OUT FILE TYPE); 
put (OUT FILE TYPE," . Counted: %); 


put (OUT FILE TYPE, COUNT TOTAL LINES A (COUNT TOTALS A)); 

new line (OUT FILE TYPE); 

put (OUT FILE TYPE, * Estimated: “‘); 

put (OUT FILE TYPE, CNT EST (ESTIMATED TOTAL, COUNT ARRAY A)); 


new line (OUT FILE TYPE); 
PRINT. REPORT HEADER 2; 


PRINT STMT HEADER; 
PRINT STMT TYPE 1 IN (COUNT. TOTALS. A, REPORT. A FLAG); 
PRINT STMT TYPE 2; 

PRINT STMT TYPE 3 IN (COUNT TOTALS A, REPORT. A. FLAG); 
PRINT STMT. TYPE 4 IN (COUNT. TOTALS. A, REPORT. A. FLAG); 
PRINT STMT. TYPE 5; 

PRINT STMT TYPE 6 EX (REPORT A FLAG); 

PRINT STMT TYPE 7 EX (REPORT. A FLAG); 
PRINT STMT TYPE 8 EX (REPORT. A FLAG); 
PRINT STMT TYPE 9 EX (REPORT A FLAG); 

PRINT STMT. TYPE 10 EX (REPORT. A FLAG); 


PRINT HOW. PRODUCED; 

PRINT HOW. PRODUCED 1 IN (COUNT. TOTALS. A); 
PRINT HOW. PRODUCED 2 IN (COUNT. TOTALS A); 
PRINT HOW. PRODUCED 3 IN (COUNT. TOTALS. A); 
PRINT HOW PRODUCED 4 IN (COUNT. TOTALS. A); 
PRINT HOW PRODUCED 5 IN (COUNT. TOTALS A); 
PRINT HOW PRODUCED 6 EX; 


PRINT. ORGIN; 

PRINT ORGIN 1 IN (COUNT TOTALS A); 
PRINT. ORGIN. 2; 

PRINT ORGIN 3 IN (COUNT TOTALS 4A); 
PRINT. ORGIN 4 IN (COUNT TOTALS A); 
PRINT ORGIN, 5 IN (COUNT TOTALS A); 
PRINT. ORGIN. 6 IN (COUNT. TOTALS. Aj; 
PRINT ORGIN 7 EX; 

PRINT ORGIN 8 EX; 

PRINT ORGIN 9 IN (COUNT TOTALS A); 
PRINT ORGIN 10 IN (COUNT TOTALS A); 
PRINT ORGIN 11 IN (COUNT. TOTALS A); 
PRINT ORGIN 12 IN (COUNT. TOTALS A); 


PRINT REPORT HEADER 2; 
PRINT USAGE; 
PRINT USAGE 1 IN (COUNT. TOTALS. A); 
PRINT. USAGE 2 ЕХ; 
PRINT DEVELOPMENT STATUS; 


PRINT DEVELOPMENT STATUS 1 EX; 
PRINT DEVELOPMENT STATUS 2 EX; 
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PRINT DEVELOPMENT. STATUS 3 EX; 
PRINT DEVELOPMENT. STATUS 4 EX; 
PRINT DEVELOPMENT STATUS 5 EX; 
PRINT DEVELOPMENT STATUS 6 EX; 
PRINT DEVELOPMENT STATUS 7 EX; 
PRINT DEVELOPMENT STATUS 8 IN (COUNT TOTALS А); 


end REPORT. A; 


procedure REPORT. B (COUNT TOTALS B:in COUNT TOTALS ТҮРЕ) 15 


REPORT B FLAG  .: integer :- 1; 
ESTIMATED TOTAL : DEVELOPMENT STATUS := DEVELOPMENT STATUS 'val(0); 


begin 
new. page (OUT. FILE TYPE); 


new line (OUT. FILE TYPE, 2); 

put line (OUT. FILE, TYPE, * REPORT B"); 
new line (OUT. FILE TYPE); 

PRINT REPORT HEADER 1; 


new line (OUT. FILE TYPE); 

put (OUT. FILE TYPE, *' Counted: %); 

put (OUT. FILE TYPE, COUNT TOTAL LINES B (COUNT TOTALS B)); 

new line (OUT. FILE TYPE); 

put (OUT FILE TYPE," Estimated: “%); 

put (OUT. FILE TYPE, CNT EST (ESTIMATED TOTAL, COUNT, ARRAY B)); 
new line (OUT FILE TYPE); 


PRINT REPORT HEADER 2; 


PRINT STMT HEADER; 
PRINT STMT TYPE 1 IN (COUNT. TOTALS B, REPORT. B FLAG); 
PRINT STMT TYPE 2; 

PRINT STMT TYPE 3 IN (COUNT. TOTALS B, REPORT. B FLAG); 
PRINT STMT TYPE 4 IN(COUNT TOTALS B, REPORT B FLAG); 
PRINT STMT. TYPE, 5; 

PRINT STMT. TYPE 6 EX (REPORT. B FLAG); 
PRINT STMT TYPE 7 EX (REPORT B FLAG); 

PRINT STMT. TYPE 8 EX (REPORT B FLAG); 

PRINT STMT TYPE 9 EX (REPORT B FLAG); 

PRINT STMT TYPE 10 EX (REPORT. B FLAG); 


PRINT HOW PRODUCED; 


PRINT HOW PRODUCED 1 IN (COUNT TOTALS B); 
PRINT HOW PRODUCED 2 IN (COUNT TOTALS B); 
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PRINT HOW. PRODUCED 3 IN (COUNT. TOTALS. B); 
PRINT HOW. PRODUCED 4 IN (COUNT. TOTALS. B); 
PRINT HOW. PRODUCED 5 IN(COUNT TOTALS B); 
PRINT. HOW. PRODUCED 6 IN (COUNT. TOTALS. B); 


PRINT ORGIN; 

PRINT ORGIN 1 IN(COUNT TOTALS B); 
PRINT ORGIN 2; 

PRINT ORGIN 3 IN(COUNT TOTALS B); 
PRINT ORGIN 4 IN(COUNT TOTALS B); 
PRINT ORGIN 5 IN(COUNT TOTALS. B); 
PRINT ORGIN 6 IN (COUNT TOTALS B); 
PRINT ORGIN 7 EX; 

PRINT ORGIN 8 EX; 

PRINT ORGIN 9 IN(COUNT TOTALS B); 
PRINT ORGIN 10 IN(COUNT TOTALS B); 
PRINT ORGIN 11 IN(COUNT TOTALS B); 
PRINT ORGIN 12 IN(COUNT TOTALS B); 


— PRINT REPORT HEADER 2; 


PRINT USAGE; 
PRINT USAGE 1 IN (COUNT TOTALS B); 
PRINT USAGE 2 EX; 


PRINT DEVELOPMENT. STATUS; 
PRINT DEVELOPMENT STATUS 1 EX; 

PRINT DEVELOPMENT STATUS 2 EX; 

PRINT DEVELOPMENT STATUS 3 IN(COUNT TOTALS B); 
PRINT DEVELOPMENT STATUS 4 IN(COUNT TOTALS B); 
PRINT DEVELOPMENT STATUS 5 IN(COUNT TOTALS B); 
PRINT DEVELOPMENT STATUS 6 IN(COUNT TOTALS B); 
PRINT DEVELOPMENT STATUS 7 IN(COUNT TOTALS B); 
PRINT DEVELOPMENT STATUS 8 IN(COUNT TOTALS B); 


-- Using generic package to print out two dimensional array 
-- of Development status and How. produced 
RETRIEVE 10 2D.INTERFACE 2D MAT (REPORT B); 


end REPORT B; 


procedure REPORT C (COUNT TOTALS C:in COUNT TOTALS TYPE) is 


REPORT C FLAG : integer :- 1; 
ESTIMATED TOTAL : DEVELOPMENT STATUS :- DEVELOPMENT STATUS 'val(0); 


begin 


new page (OUT FILE TYPE) 
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new line (OUT FILE TYPE, 2); 

put line (OUT FILE TYPE, * КЕРОКТ С”); 
new line (OUT. FILE TYPE); 

PRINT REPORT HEADER 1; 


new line (OUT FILE TYPE); 

put (OUT FILE TYPE, * Counted: “); 

put (OUT_FILE_TYPE, COUNT_TOTAL_LINES_C (COUNT_TOTALS_(C)); 

new line (OUT. FILE TYPE); 

put(OUT FILE TYPE, * Estimated: ©“); 

put (OUT. FILE TYPE, CNT EST (ESTIMATED TOTAL, COUNT ARRAY, C)); 
new line (OUT FILE TYPE); 

PRINT. REPORT. HEADER 2; 


PRINT STMT HEADER; 
PRINT STMT TYPE 1 IN (COUNT. TOTALS C, REPORT. C FLAG); 
PRINT STMT TVPE 2; 

PRINT STMT TVPE 3 IN(COUNT TOTALS C,REPORT C FLAG); 
PRINT STMT TVPE 4 IN(COUNT TOTALS C,REPORT C FLAG); 
PRINT STMT TVPE 5; 

PRINT STMT TYPE 6 IN (COUNT. TOTALS C, REPORT C FLAG); 
PRINT STMT TYPE 7 IN (COUNT. TOTALS. C, REPORT C FLAG); 
PRINT STMT TYPE 8 EX (REPORT C FLAG); 
PRINT STMT TYPE 9 EX (REPORT C FLAG); 

PRINT STMT TYPE 10 EX (REPORT. C FLAG); 


PRINT HOW PRODUCED; 

PRINT HOW PRODUCED 1 IN (COUNT TOTALS C); 
PRINT HOW PRODUCED 2 IN (COUNT TOTALS C); 
PRINT HOW PRODUCED 3 IN (COUNT TOTALS, C); 
PRINT HOW PRODUCED 4 IN (COUNT TOTALS C); 
PRINT HOW PRODUCED,. 5 IN (COUNT TOTALS С); 
PRINT HOW PRODUCED 6 IN (COUNT TOTALS C); 


PRINT. ORGIN; 

PRINT ORGIN 1 IN (COUNT TOTALS, C); 
PRINT ORGIN 2; 

PRINT ORGIN 3 IN (COUNT TOTALS C); 
PRINT ORGIN 4 IN (COUNT TOTALS C); 
PRINT ORGIN 5 IN (COUNT TOTALS C); 
PRINT ORGIN. 6 IN (COUNT. TOTALS C); 
PRINT ORGIN 7 EX; 

PRINT ORGIN 8 EX; 

PRINT ORGIN 9 IN (COUNT TOTALS C); 
PRINT ORGIN 10 IN (COUNT TOTALS C); 
PRINT ORGIN. 11 IN (COUNT TOTALS C); 
PRINT ORGIN 12 IN (COUNT TOTALS C); 


- PRINT REPORT HEADER 2; 
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PRINT USAGE; 
PRINT USAGE 1 IN (COUNT. TOTALS С); 
PRINT USAGE 2 EX; 


PRINT DEVELOPMENT. STATUS; 

PRINT DEVELOPMENT STATUS 1 EX; 

PRINT DEVELOPMENT STATUS 2 EX; 

PRINT DEVELOPMENT STATUS 3 EX; 

PRINT DEVELOPMENT STATUS 4 EX; 

PRINT DEVELOPMENT STATUS 5 EX; 

PRINT DEVELOPMENT STATUS 6 EX; 

PRINT DEVELOPMENT. STATUS 7 EX; 

PRINT DEVELOPMENT STATUS 8 IN (COUNT TOTALS C); 


-- Using generic package to print out two dimensional array 
-- of Statement type and How produced 
RETRIEVE 1, 2D.INTERFACE 2D MAT (REPORT C); 


end REPORT. C; 


procedure REPORT. D (COUNT TOTALS D:in COUNT TOTALS TYPE) is 


REPORT D FLAG  .: integer:- 1; 
ESTIMATED TOTAL : DEVELOPMENT STATUS :z DEVELOPMENT. STATUS ' val(0); 


begin 
new page (OUT FILE TYPE); 


new line (OUT FILE TYPE, 2); 

put line (OUT FILE TYPE, * REPORT D"); 
new line (OUT FILE TYPE); 

PRINT REPORT HEADER 1; 


new line (OUT FILE TYPE); 

put (OUT FILE TYPE, * Counted: “); 

put (OUT FILE TYPE, COUNT TOTAL LINES. D (COUNT. TOTALS D)); 

new line (OUT FILE TYPE); 

put (OUT FILE ТҮРЕ,“ Estimated: *5; 

put (OUT FILE TYPE, CNT. EST (ESTIMATED TOTAL, COUNT ARRAY D)) 


new line (OUT FILE TYPE); 
PRINT. REPORT. HEADER, 2; 


PRINT STMT HEADER; 

PRINT STMT TYPE 1 IN (COUNT. TOTALS, D, REPORT. D FLAG); 
PRINT STMT TYPE 2; 

PRINT STMT TYPE 3 IN (COUNT TOTALS, D, REPORT D FLAG); 
PRINT STMT TYPE 4 IN (COUNT TOTALS. D, REPORT. D FLAG); 
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PRINT STMT TYPE 5; 

PRINT STMT TYPE 6 EX (REPORT D FLAG); 
PRINT. STMT. TYPE 7 EX (REPORT. D FLAG); 
PRINT STMT TYPE 8 EX (REPORT. D FLAG); 
PRINT STMT TYPE 9 EX (REPORT D FLAG); 
PRINT STMT. TYPE 10 EX (REPORT. D FLAG); 


PRINT HOW PRODUCED; 

PRINT HOW PRODUCED 1 IN (COUNT TOTALS D); 
PRINT HOW PRODUCED 2 IN (COUNT TOTALS D); 
PRINT HOW PRODUCED 3 IN (COUNT TOTALS D); 
PRINT HOW PRODUCED 4 IN (COUNT TOTALS D); 
PRINT HOW PRODUCED 5 IN (COUNT TOTALS D); 
PRINT HOW PRODUCED 6 IN (COUNT TOTALS D); 


PRINT. ORGIN; 

PRINT ORGIN. 1 IN (COUNT. TOTALS. D); 
PRINT ORGIN 2; 

PRINT ORGIN 3 IN (COUNT. TOTALS. D); 
PRINT ORGIN. 4 IN (COUNT. TOTALS D); 
PRINT ORGIN. 5 IN (COUNT. TOTALS. D); 
PRINT. ORGIN. 6 IN (COUNT. TOTALS. D); 
PRINT ORGIN 7 EX; 

PRINT ORGIN 8 EX; 

PRINT. ORGIN 9 IN (COUNT. TOTALS. D); 
PRINT ORGIN 10 IN (COUNT. TOTALS D); 
PRINT ORGIN 11 IN (COUNT. TOTALS р); 
PRINT ORGIN. 12. IN (COUNT. TOTALS. D); 


PRINT REPORT HEADER 2; 


PRINT USAGE; 
PRINT USAGE 1 IN (COUNT TOTALS D); 
PRINT USAGE 2 EX; 


PRINT DEVELOPMENT STATUS; 

PRINT DEVELOPMENT STATUS 1 EX; 

PRINT DEVELOPMENT STATUS 2 EX; 

PRINT DEVELOPMENT STATUS 3 EX; 

PRINT DEVELOPMENT STATUS 4 EX; 

PRINT DEVELOPMENT STATUS 5 EX; 

PRINT DEVELOPMENT STATUS 6 EX; 

PRINT DEVELOPMENT STATUS 7 EX; 

PRINT DEVELOPMENT STATUS 8 IN (COUNT TOTALS D); 


-- Using generic package to print out two dimensional array 
-- of Orgin and How. produced 
RETRIEVE 3 2D.INTERFACE 2D MAT (REPORT. D); 


end REPORT D; 


227 


procedure REPORT_E (COUNT_TOTALS_E : in COUNT_TOTALS_TYPE) is 


REPORT E FLAG  : integer:- 1; 
ESTIMATED TOTAL : DEVELOPMENT STATUS :- DEVELOPMENT. STATUS' val(0); 


begin 
new page (OUT FILE TYPE); 


new line (OUT FILE TYPE, 2); 

put line (OUT FILE TYPE, * REPORT E"); 

new line (OUT FILE TYPE); 

PRINT REPORT. HEADER 1; 

new line (OUT FILE TYPE); 

put (OUT. FILE TYPE, * Counted: “); 

put (OUT. FILE TYPE, COUNT TOTAL LINES E (COUNT TOTALS Е)); 
new line (OUT FILE TYPE); 

put (OUT. FILE TYPE, * Estimated: %); 

put (OUT. FILE TYPE, CNT EST (ESTIMATED TOTAL, COUNT ARRAY E)); 
new line (OUT FILE. TYPE); 

PRINT. REPORT. HEADER, 2; 

PRINT. STMT HEADER; 

PRINT STMT TYPE 1 IN (COUNT TOTALS E, REPORT E FLAG); 
PRINT STMT TYPE 2; 

PRINT STMT TYPE 3 IN (COUNT TOTALS E, REPORT E FLAG); 
PRINT STMT TYPE 4 IN (COUNT TOTALS E, REPORT E FLAG); 
PRINT. STMT TYPE 5; 

PRINT. STMT. TYPE 6 IN (COUNT. TOTALS E, REPORT E FLAG); 
PRINT STMT TYPE 7 IN (COUNT TOTALS E, REPORT E FLAG); 
PRINT STMT TYPE 8 EX (REPORT. E FLAG); 

PRINT STMT TYPE 9 EX (REPORT. E FLAG); 

PRINT STMT TYPE 10 EX (REPORT E FLAG); 


PRINT HOW. PRODUCED; 

PRINT HOW PRODUCED. 1 IN (COUNT TOTALS E); 
PRINT HOW PRODUCED 2 IN (COUNT TOTALS E); 
PRINT HOW. PRODUCED 3 IN (COUNT TOTALS E); 
PRINT HOW PRODUCED 4 IN (COUNT TOTALS E); 
PRINT HOW PRODUCED 5 IN (COUNT TOTALS E); 
PRINT HOW PRODUCED 6 IN (COUNT TOTALS E); 


PRINT ORGIN; 

PRINT ORGIN. 1 IN (COUNT. TOTALS E); 
PRINT. ORGIN 2; 

PRINT ORGIN 3 IN (COUNT. TOTALS. E): 
PRINT ORGIN. 4 IN (COUNT. TOTALS. E); 
PRINT. ORGIN, 5 IN (COUNT. TOTALS. E): 
PRINT. ORGIN. 6 IN (COUNT. TOTALS. E); 
PRINT ORGIN 7 EX: 
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PRINT. ORGIN 8 ЕХ; 

PRINT ORGIN 9 IN(COUNT TOTALS E), 
PRINT ORGIN 10 IN (COUNT TOTALS E); 
PRINT ORGIN 11 IN (COUNT TOTALS Ej; 
PRINT. ORGIN 12 IN (COUNT TOTALS E); 


— PRINT REPORT HEADER 2; 


PRINT, USAGE; 
PRINT. USAGE 1 IN (COUNT TOTALS E); 
PRINT USAGE 2 EX; 


PRINT DEVELOPMENT STATUS; 

PRINT DEVELOPMENT STATUS 1 EX; 

PRINT DEVELOPMENT STATUS 2 EX; 

PRINT DEVELOPMENT STATUS 3 EX; 

PRINT DEVELOPMENT STATUS 4 EX; 

PRINT DEVELOPMENT. STATUS 5 EX; 

PRINT DEVELOPMENT STATUS. 6 EX; 

PRINT DEVELOPMENT STATUS 7 EX; 

PRINT DEVELOPMENT STATUS 8 IN (COUNT TOTALS E); 


RETRIEVE 1 2D.INTERFACE 3D MAT (REPORT E); 


end REPORT Е; 


procedure REPORT. F (COUNT. TOTALS F:in COUNT TOTALS TYPE)is 


REPORT F FLAG  .: integer := -1; 
ESTIMATED TOTAL : DEVELOPMENT STATUS :- DEVELOPMENT. STATUS 'val(0); 


begin 
new page (OUT FILE TYPE); 


new line (OUT FILE TYPE, 2); 
put line (OUT FILE, TYPE, “ REPORT F'); 
new. line (OUT FILE TVPE); 


-- Print out panel 3 settings; 


PRINT REPORT HEADER. 1; 

new line (OUT FILE TYPE); 

put (OUT FILE TYPE, Counted: ''); 

put (OUT. FILE TYPE, COUNT TOTAL LINES F (COUNT. TOTALS. F)); 

new line (OUT FILE TYPE); 

put (OUT FILE TYPE," Estimated: ©“); 

put (OUT ЕП Е ТҮРЕ, СМТ EST (ESTIMATED TOTAL, COUNT ARRAY F)) 
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new line (OUT FILE TYPE); 
PRINT REPORT HEADER, 2; 
PRINT. STMT HEADER; 
if RECORD. FLAGS F.PANEL3.LINE 1 then 
PRINT STMT. TYPE 1 IN (COUNT TOTALS F, REPORT F FLAG); 
else 
PRINT STMT TYPE 1 EX (REPORT F FLAG); 
end 1f; 


PRINT STMT TYPE 2; 


if RECORD FLAGS F.PANEL3.LINE 3 then 

PRINT STMT TYPE 3 IN (COUNT TOTALS F, REPORT F FLAG); 
else 

PRINT. STMT TYPE 3 EX (REPORT F FLAG); 
end if; 
if RECORD FLAGS F.PANEL3.LINE 4 then 

PRINT STMT TYPE 4 IN (COUNT TOTALS F, REPORT F FLAG); 
else 

PRINT STMT TYPE 4 EX (REPORT. F FLAG); 
end if; 


PRINT STMT TYPE 5; 


if RECORD FLAGS F.PANEL3.LINE 6 then 
PRINT STMT TYPE 6 IN (COUNT. TOTALS F, REPORT F FLAG); 
else 
PRINT STMT TYPE 6 EX (REPORT F FLAG); 
end if; 
if RECORD_FLAGS_F.PANEL3.LINE_7 then 
PRINT STMT TYPE. 7 IN (COUNT TOTALS F, REPORT F FLAG); 
else 
PRINT STMT TYPE 7 EX (REPORT F FLAG); 
end if; 
if RECORD FLAGS F.PANEL3.LINE 8 then 
PRINT STMT TVPE 8 IN(COUNT TOTALS F,REPORT F FLAG); 
else 
PRINT STMT. TVPE 8 EX (REPORT F FLAG), 
end if; 
if RECORD FLAGS F.PANEL3.LINE 9 then 
PRINT STMT TYPE 9 IN (COUNT TOTALS F, REPORT F FLAG); 
else 
PRINT STMT TYPE 9 EX (REPORT F FLAG); 
end if; 
if RECORD FLAGS F.PANEL3.LINE 10 then 
PRINT STMT. TYPE 10 IN (COUNT. TOTALS F, REPORT F FLAG); 
else 
PRINT STMT TYPE 10 EX (REPORT F FLAG); 
end if; 


PRINT HOW PRODUCED,; 
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if RECORD FLAGS. F.PANELA.LINE 1 then 
PRINT HOW PRODUCED 1 IN(COUNT TOTALS F); 
else 
PRINT HOW PRODUCED 1 EX; 
end if; 
if RECORD FLAGS F.PANELA.LINE 2 then 
PRINT HOW PRODUCED 2 IN(COUNT TOTALS F); 
else 
PRINT HOW PRODUCED 2 EX; 
end if; 
if RECORD FLAGS F.PANELA.LINE 3 then 
PRINT HOW PRODUCED 3 IN (COUNT TOTALS Р); 
else 
PRINT HOW PRODUCED 3 EX; 
end if; 
if RECORD FLAGS F.PANELA.LINE 4 then 
PRINT HOW PRODUCED 4 IN(COUNT TOTALS F); 
else 
PRINT HOW PRODUCED 4 EX; 
end if; 
if RECORD FLAGS F.PANELA.LINE 5 then 
PRINT HOW PRODUCED 5 IN (COUNT TOTALS F); 
else 
PRINT HOW PRODUCED 5 EX; 
end if; 
if RECORD_FLAGS_F.PANEL4.LINE_6 then 
PRINT_HOW_PRODUCED_6_IN (COUNT_TOTALS_F); 
else 
PRINT HOW PRODUCED 6 EX; 
end if; 


PRINT ORGIN; 


if RECORD FLAGS F.PANELS.LINE. 1 then 
PRINT ORGIN. 1 IN (COUNT. TOTALS F); 
else 
PRINT ORGIN 1 EX; 
end if; 


PRINT. ORGIN 2; 


if RECORD FLAGS F.PANELS.LINE. 3 then 
PRINT ORGIN 3 IN (COUNT. TOTALS F); 
else 
PRINT. ORGIN 3 EX; 
end if; 
if RECORD FLAGS F.PANELS.LINE 4 then 
PRINT ORGIN 4 IN(COUNT. TOTALS Р); 
else 
PRINT ORGIN 4 EX; 
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end if; 
if RECORD FLAGS F.PANELS.LINE 5 then 
PRINT ORGIN 5 IN(COUNT TOTALS F), 
else 
PRINT ORGIN 5 EX; 
end if; 
if RECORD FLAGS F.PANELS.LINE 6 then 
PRINT. ORGIN 6 IN(COUNT TOTALS F); 
else 
PRINT ORGIN 6 EX; 
end if; 
if RECORD FLAGS F.PANELS.LINE 7 then 
PRINT ORGIN 7 IN(COUNT TOTALS F); 
else 
PRINT ORGIN 7 EX, 
end if; 
if RECORD FLAGS F.PANELS.LINE 8 then 
PRINT ORGIN 8 IN(COUNT TOTALS F); 
else 
PRINT ORGIN 8 EX; 
end if; 
if RECORD FLAGS F.PANELS.LINE 9 then 
PRINT ORGIN 9 IN (COUNT. TOTALS F); 
else - 
PRINT ORGIN 9 EX, 
end if; 
if RECORD FLAGS F.PANELS.LINE 10 then 
PRINT ORGIN 10 IN (COUNT TOTALS F); 
else 
PRINT. ORGIN. 10 EX; 
end if; 
if RECORD FLAGS F.PANELS.LINE 11 then 
PRINT ORGIN 11 IN (COUNT TOTALS F); 
else 
PRINT. ORGIN 11 EX; 
end if; 
if RECORD FLAGS F.PANELS.LINE 12 then 
PRINT ORGIN 12 IN (COUNT TOTALS Е); 
else 
PRINT. ORGIN 12 EX; 
end if; 


PRINT REPORT HEADER, 2; 
PRINT. USAGE; 
if RECORD FLAGS F.PANELG.LINE. 1 then 
PRINT USAGE 1 IN (COUNT. TOTALS F); 
else 


PRINT. USAGE 1 EX; 
end if; 


292 


if RECORD FLAGS  F.PANELO.LINE 2 then 
PRINT USAGE 2 IN(COUNT TOTALS F); 
else 
PRINT USAGE 2 EX; 
end if; 


PRINT DEVELOPMENT STATUS; 


if RECORD FLAGS F.PANELO.LINE 1 then 
PRINT DEVELOPMENT STATUS. 1 IN (COUNT TOTALS F); 
else 
PRINT DEVELOPMENT STATUS 1 EX; 
end 1f; 
if RECORD FLAGS F.PANELO9.LINE 2 then 
PRINT DEVELOPMENT STATUS 2 IN (COUNT TOTALS F); 
else 
PRINT DEVELOPMENT STATUS 2 EX; 
end if; 
if RECORD FLAGS F.PANELO9.LINE 3 then 
PRINT DEVELOPMENT STATUS 3 IN(COUNT TOTALS F); 
else 
PRINT DEVELOPMENT STATUS 3 EX; 
end if; 
if RECORD_FLAGS_F.PANEL9.LINE_4 then 
PRINT_DEVELOPMENT_STATUS_4_IN (COUNT_TOTALS_F); 
else 
PRINT DEVELOPMENT STATUS 4 EX; 
end if; 
if RECORD FLAGS F.PANELO.LINE 5 then 
PRINT DEVELOPMENT STATUS 5 IN (COUNT TOTALS F); 
else 
PRINT DEVELOPMENT STATUS 5 EX; 
end if; 
if RECORD_FLAGS_F.PANEL9.LINE_6 then 
PRINT_DEVELOPMENT_STATUS_6_IN (COUNT_TOTALS_F); 
else 
PRINT DEVELOPMENT STATUS 6 EX; 
end 1f; 
if RECORD FLAGS F.PANELO.LINE 7 then 
PRINT DEVELOPMENT STATUS 7 EX; 
else 
PRINT DEVELOPMENT STATUS 7 EX; 
end if; 
if RECORD FLAGS F.PANELO9O.LINE 8 then 
PRINT DEVELOPMENT STATUS 8 IN (COUNT TOTALS F); 
else 
PRINT DEVELOPMENT STATUS 8 EX; 
end if; 


PRINT DATA, ARRAY Е; 
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end REPORT F; 


procedure DETERMINE WHICH REPORT is 
begin 


if RECORD FLAGS.PANEL2.REPORT A then 
COUNT ATTRIBUTE ONE (RECORD FLAGS A, COUNT. TOTALS A, 
COUNT ARRAY. A); 
COUNT ATTRIBUTE TWO (RECORD FLAGS A, COUNT TOTALS А, 
COUNT ARRAY A) 
COUNT ATTRIBUTE THREE (RECORD FLAGS A, COUNT TOTALS A, 
COUNT ARRAY A); 
COUNT ATTRIBUTE FOUR (RECORD FLAGS A, COUNT TOTALS A, 
COUNT ARRAY A); 
COUNT ATTRIBUTE FIVE (RECORD FLAGS A, COUNT TOTALS A, 
COUNT ARRAY A); 
REPORT. A (COUNT TOTALS A); 
end if; 


if RECORD FLAGS.PANEL2.REPORT B then 
COUNT ATTRIBUTE ONE (RECORD FLAGS B, COUNT TOTALS B, 
COUNT ARRAY B); 
COUNT ATTRIBUTE TWO (RECORD FLAGS B, COUNT TOTALS B, 
COUNT ARRAY B) 
COUNT ATTRIBUTE THREE (RECORD FLAGS B, COUNT TOTALS B, 
COUNT ARRAY B); 
COUNT ATTRIBUTE FOUR (RECORD FLAGS B, COUNT TOTALS B, 
COUNT ARRAY B) 
COUNT ATTRIBUTE FIVE (RECORD FLAGS B, COUNT TOTALS B, 
COUNT ARRAY B); 
REPORT B (COUNT TOTALS B) 
end if; 


if RECORD FLAGS.PANEL2.REPORT C then 
COUNT ATTRIBUTE ONE (RECORD FLAGS C, COUNT TOTALS C, 
COUNT ARRAY C) 
COUNT ATTRIBUTE TWO (RECORD FLAGS C, COUNT TOTALS C, 
COUNT. ARRAY C); 
COUNT ATTRIBUTE THREE (RECORD FLAGS. C, COUNT. TOTALS C, 
COUNT ARRAY C) 
COUNT ATTRIBUTE FOUR (RECORD FLAGS. C, COUNT. TOTALS C, 
COUNT ARRAY C); 
COUNT ATTRIBUTE FIVE (RECORD FLAGS C, COUNT. TOTALS C, 
COUNT ARRAY. C); 
REPORT C (COUNT TOTALS C); 
end if; 
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if RECORD FLAGS.PANEL2.REPORT. D then 
COUNT ATTRIBUTE ONE (RECORD FLAGS. D, COUNT. TOTALS. D, 
COUNT ARRAY. D); 
COUNT ATTRIBUTE TWO (RECORD. FLAGS. D, COUNT. TOTALS D, 
COUNT. ARRAY. D); 
COUNT. ATTRIBUTE THREE (RECORD FLAGS, D, COUNT. TOTALS D, 
COUNT ARRAY D), 
COUNT ATTRIBUTE FOUR (RECORD FLAGS D, COUNT TOTALS. D, 
COUNT ARRAY D); 
COUNT ATTRIBUTE FIVE (RECORD FLAGS D, COUNT TOTALS. D, 
COUNT ARRAY D); 
REPORT. D (COUNT TOTALS D); 
end if; 


if RECORD FLAGS.PANEL2.REPORT E then 
COUNT ATTRIBUTE ONE (RECORD. FLAGS E, COUNT TOTALS E, 
COUNT ARRAY E) 
COUNT ATTRIBUTE TWO (RECORD FLAGS E, COUNT TOTALS E, 
COUNT ARRAY E), 
COUNT ATTRIBUTE THREE (RECORD FLAGS E, COUNT TOTALS E, 
COUNT ARRAY E) 
COUNT ATTRIBUTE FOUR (RECORD FLAGS E, COUNT TOTALS E, 
COUNT ARRAY E) 
COUNT ATTRIBUTE FIVE (RECORD FLAGS E, COUNT TOTALS E, 
COUNT ARRAY E) 
REPORT E (COUNT TOTALS. E); 
end if; 


if RECORD. FLAGS.PANEL2.REPORT F then 
COUNT ATTRIBUTE ONE (RECORD FLAGS. F, COUNT TOTALS Е, 
COUNT ARRAY F) 
COUNT ATTRIBUTE TWO (RECORD. FLAGS F, COUNT. TOTALS F, 
COUNT ARRAY Е); 
COUNT ATTRIBUTE THREE (RECORD. FLAGS. F, COUNT TOTALS F, 
COUNT АККАУ Е); 
COUNT ATTRIBUTE FOUR (RECORD FLAGS F, COUNT TOTALS F, 
COUNT ARRAY Е); 
COUNT ATTRIBUTE FIVE (RECORD. FLAGS. F, COUNT. TOTALS F, 
COUNT ARRAY F); 
REPORT F (COUNT TOTALS F); 
end if; 


end DETERMINE WHICH, REPORT; 


end REPORT. PACKAGE; 
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GENERIC PACKAGE SPEC AND BODX 


--* Programmed 

with text, 10, 
GLOBAL; 

use text 1o, 
GLOBAL; 


generic 
type FIRST TYPE is («2»); 
type SECOND ТҮРЕ 15 (<>); 
type THIRD TYPE is (<>); 
type FOURTH ТҮРЕ 15 (<>); 
tvpe ЕГЕТН ТҮРЕ 15 (<>); 
type REPORT TYPE is («5»); 
type T NUMBER TYPE is range <>; 
with function RETRIEVE (TYPEI : FIRST TYPE; 

TYPE2 : SECOND TYPE; 

TYPE3 : THIRD_TYPE; 

TYPEA : FOURTH TYPE; 

TYPES5: FIFTH TYPE; 

TYPE6: REPORT TYPE) return natural; 
with function CHECK, TYPE 2 return T NUMBER TYPE; 
with function CHECK. TYPE. 3 return T NUMBER TYPE; 
with procedure PRINT ROW HEADING (ROW NUM : positive); 


package GENERIC, COUNTS is 


package INTEGER, IN OUT is new integer io (integer); 
use INTEGER IN OUT; 


package ENUMERATION IN OUT is new ENUMERATION IO (STMT TYPE); 
use ENUMERATION IN OUT; 


procedure INTERFACE 2D. MAT (T6: in REPORT TYPE); 


procedure INTERFACE 3D MAT (T6 : in REPORT. TYPE); 


end GENERIC COUNTS; 
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package bodv GENERIC COUNTS is 


procedure HOW PRODUCED HEADING (IN NUM : positive := 20) is 
TEMP .: natural :z IN NUM - 1; 
begin 


if IN NUM » 15 then 
new line (OUT FILE TYPE); 
put line (OUT FILE TYPE, * Programmed Generated Converted Copied Modified 
Removed”); 
new line (OUT FILE TVPE, 2); 
else 
if TEMP = 0 then 
put (OUT_FILE_TYPE, “ How produced.Programmed”); 
elsif TEMP = 1 then 
put (OUT_FILE_TYPE, “ How produced.Generated with source code generators"); 
elsif TEMP z 2 then 
put (OUT FILE TYPE, " How produced.Converted with automated translators"); 
elsif TEMP z 3 then 
put (OUT FILE TYPE, “ How produced.Copied or reused without change"); 
elsif TEMP z 4 then 
put (OUT. FILE TYPE, * How produced.Modified”); 
elsif TEMP = 5 then 
put (OUT FILE TYPE, " How produced.Removed”); 
end if; 
end if; 


end HOW_PRODUCED_HEADING; 


procedure STMT TYPE HEADING (IN, NUM : positive := 20) is 
TEMP .: natural : IN NUM - 1; 
begin 


if IN NUM » 15 then 
new line (OUT FILE TYPE); 
put line (OUT FILE TYPE, * Exec Dec Pragma Cmmts Cmmts w other 
Banner Empty Blank”); 
new_line (OUT_FILE_TYPE, 2); 
else 
if TEMP = 0 then 
put (OUT FILE TYPE, * Statement type.Executable”); 
elsif TEMP = 1 then 
put (OUT FILE TYPE, * Statement type.Declarations"); 
elsif TEMP z 2 then 
put (OUT FILE ТҮРЕ, “ Statement type.Compiler Directives"); 
elsif TEMP z 3 then 
put (OUT FILE TYPE, Statement type.Comments on their own lines"); 
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elsif TEMP = 4 then 
put (OUT_FILE_TYPE, “ Statement type.Comments on lines with source code”); 
elsif TEMP z 5 then 
put (OUT FILE TYPE, " Statement type.Banners and nonblank spacers"); 
elsif TEMP — 6 then 
pu (OUT FIEE TXVEE, $ Statement type.Blank (empty) comments"); 
elsif TEMP = 7 then 
put (OUT_FILE_TYPE, “ Statement type.Blank lines”); 
end if; 
end if; 


end STMT_TYPE_HEADING; 


procedure USAGE HEADING (IN NUM : positive := 20) is 
TEMP : natural :-IN NUM 1; 
begin 


if IN NUM » 15 then 
new line (OUT FILE TYPE); 
put line (OUT FILE TYPE, "' Primary External"); 
new line (OUT FILE TYPE, 2); 
else 
if TEMP z 0 then 
put (OUT. FILE TYPE, “ Usage.In or as part of the primary product”); 
elsif TEMP = 1 then 
put (OUT_FILE_TYPE, “ Usage.External to or in support of the primary product”); 
end if; 
end if; 


end USAGE_HEADING; 


procedure DEVELOPMENT STATUS HEADING (IN NUM : positive := 20) is 
TEMP .: natural : IN NUM - 1; 
begin 


if IN NUM » 15 then 
new line (OUT. FILE TYPE); 
put line (OUT FILE TYPE, Est Designed Coded Unit test Integrated 
Readiness CSCI System Tests"); 
new line (OUT FILE TYPE, 2); 


else 
if TEMP - 0 then 
put (OUT FILE ТҮРЕ, “ Development Status.Estimated or planned"); 


elsif TEMP — 1 then 
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put (OUT FILE ТҮРЕ, “ Development Status. Designed”); 
elsif TEMP = 2 then 


put (OUT_FILE_TYPE, “ Development Status.Coded”); 
elsif TEMP = 3 then 

put (OUT_FILE_TYPE, “ Development Status. Unit tests completed”); 
elsif TEMP = 4 then 

put (OUT_FILE_TYPE, “ Development Status. Integrated into components”); 
elsif TEMP = 5 then 

put (OUT_FILE_TYPE, “ Development Status.Test readiness completed"); 
elsif TEMP = 6 then 

put (OUT_FILE_TYPE, “ Development Status.Software (CSCI) tests completed”); 
elsif TEMP = 7 then 

put (OUT FILE TYPE, * Development Status.System tests completed"); 
end if; 

end if; 


end DEVELOPMENT STATUS HEADING; 


procedure ORGIN. HEADING (IN. NUM : positive := 20) is 


TEMP .: natural : IN NUM- 1 


begin 
if TEMP = 0 then 
put (OUT_FILE_TYPE, “ Orgin.New work”); 
elsif TEMP = 1 then 
put (OUT ILE TYPE, ~ Orgin.Previos version"); 
elsif TEMP = 2 then 
put (OUT_FILE_TYPE, “ Orgin.COTS”); 
elsif TEMP = 3 then 
put (OUT FILE TYPE, * Orgin.GFS '); 
elsif TEMP = 4 then 
put (OUT_FILE_TYPE, “ Orgin.Annother product"); 
elsif TEMP z 5 then 
put (OUT. FILE TYPE, * Orgin.A vendor supplied language support library"); 
elsif TEMP = 6 then 
put (OUT_FILE_TYPE, “ Orgin.A vendor supplied operating system or utility”); 
elsif TEMP = 7 then 
put (OUT_FILE_TYPE, “ Orgin.A local or modified language support library”); 
elsif TEMP = 8 then 
put (OUT_FILE_TYPE, “ Orgin.Other commercial library”); 
elsif TEMP = 9 then 
put (OUT_FILE_TYPE, “ Orgin.À reuse library"); 
elsif TEMP - 10 then 
put (OUT FILE TYPE, * Orgin.Other software component or library"); 
end if; 


new line (OUT FILE TYPE); 
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end ORGIN HEADING; 


обо s GEN 2D MAT (FIX 1:in FIRST TYPE; 
FIX 2:in SECOND TYPE; 
IN T6: in REPORT TYPE) return natural is 
SUM  : natural := 0; 
begin 
for T3 in THIRD TYPE'first.. THIRD TYPE last loop 
for T4 in FOURTH, TYPE' first .. FOURTH  TYPE'last loop 
for T5 in FIFTH, TYPE'first .. FIFTH. TYPE last loop 
SUM := SUM + RETRIEVE (FIX 1, FIX 2, T3, T4, T5, IN T6); 
end loop; 
end loop; 
end loop; 


return SUM; 


end GEN 2D MAT; 


function GEN. 3D MAT (FIX 1:in FIRST TYPE; 
FIX 2:in SECOND TYPE; 
FIX 3:in THIRD TYPE; 
IN T6:in REPORT TYPE) return natural is 
SUM  : natural :- 0; 
begin 
for T4 in FOURTH_TYPE’ first .. FOURTH_TY PE last loop 
for T5 in FIFTH, TYPE'first .. FIFTH. TYPE'last loop 
SUM :z SUM * RETRIEVE (FIX 1, FIX 2, FIX. 3, T4, T5, IN. T6); 


end loop; 


end loop; 
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return SUM; 


end GEN 3D MAT; 


procedure INTERFACE 2D. MAT (T6: in REPORT TYPE) is 


type MAT TYPE is array (FIRST TYPE, SECOND TYPE) of natural; 
MAT : MAT TYPE; 

T2 NUMBER : T NUMBER TYPE; 

LOOP NUM .: positive := 1; 

TYPE TWO .: positive := 2; 


begin 


for Tl in FIRST TYPE' first .. FIRST. TYPE last loop 
for T2 in SECOND TYPE'first.. SECOND TYPE last loop 


МАТ (Т1, Т2) := СЕМ 20 МАТ (ТІ, T2, T6); 


end loop; 
end loop; 


T2 NUMBER :- CHECK TYPE 2; 


if T2 NUMBER = 1 then 
HOW_PRODUCED_HEADING; 

elsif T2 NUMBER = 2 then 
STMT_TYPE_HEADING; 

elsif T2 NUMBER = 3 then 
USAGE_HEADING; 

elsif T2 NUMBER = 4 then 
DEVELOPMENT_STATUS_HEADING; 

end if; 


for T1 in FIRST_TYPE’ first .. FIRST. TYPE last loop 
PRINT. ROW HEADING (LOOP NUMJ; 
for T2in SECOND TYPE'first .. SECOND. TYPE last loop 
put (OUT FILE TYPE, MAT (T1, T2), width => 10); 
end loop; 
new line (OUT FILE TYPE, 2); 
LOOP NUM :- LOOP NUM - 1; 
end loop; 


end INTERFACE 2D MAT; 


procedure INTERFACE 3D MAT (T6: in REPORT TYPE) is 
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type MAT TYPE is array (FIRST. TYPE, SECOND TYPE) of natural; 
MAT : MAT TYPE; 

LOOP NUM 3 : positive := 1; 

LOOP NUM 2 : positive := 1; 

T3 NUMBER : T NUMBER TYPE; 

T2 NUMBER : T NUMBER, TYPE; 

TYPE THREE : positive :- 3; 


begin 


-- Need to find out the type of the third dimension 
T3 NUMBER :: CHECK TYPE 3; 
T2 NUMBER :- CHECK TYPE 2; 


new line (OUT FILE TYPE, 2); 
-- need to loop through 3rd type here 
for T3in THIRD TYPE'first.. THIRD TYPE last loop 


-- Creating a two dimensional array with the same third dimesion 
-- staying constant 
for TI in FIRST TXPE first.. FIRST TXPE'last loop 

for T2 in SECOND. TVPE 'first.. SECOND. TXPE' last loop 


МАТ (ТІ, Т2) := СЕМ ЗО. МАТ (ТІ, 12, T3, T6); 


end loop; 
end Icop; 


-- need to output the thrid dimemsion heading here 


if T3 NUMBER = 1 then 
HOW PRODUCED HEADING (LOOP NUM 3); 
elsif T3 NUMBER = 2 then 
STMT_TYPE_HEADING (LOOP_NUM_3); 
elsif T3 NUMBER z 3 then 
null; 
elsif T3 NUMBER = 4 then 
DEVELOPMENT STATUS HEADING (LOOP. NUM 3); 
elsif T3 NUMBER - 5 then 
ORGIN HEADING (LOOP. NUM 3); 
end if; 


-- Need to output the second dimension as column headings 
-- Finding which type is the second dimension 
if T2 NUMBER = 1 then 
HOW_PRODUCED_HEADING; 
elsif T2_NUMBER = 2 then 
STMT_TYPE_HEADING; 
elsif T2 NUMBER = 3 then 
USAGE_HEADING; 
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elsif T2 NUMBER - 4 then 
DEVELOPMENT STATUS HEADING; 
end if; 


-- Printing out the contents of the two dimensional matrix 
for T1 in FIRST TYPE'first .. FIRST TYPE 'last loop 
PRINT ROW HEADING (LOOP NUM 2); 
for T2 in SECOND TYPE 'first.. SECOND. TYPE'last loop 
put (OUT FILE TYPE, MAT (T1, T2), width => 10); 
end loop; 
new line (OUT FILE TYPE, 2); 
LOOP NUM 2:- LOOP NUM 2-1; 
end loop; 


LOOP NUM 2:-1; 
LOOP NUM 3:- LOOP NUM 3-1; 
end loop; 


end INTERFACE 3D MAT; 


end GENERIC COUNTS; 
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APPENDIX C. EXTEND SAMPLE INPUT AND OUTPUT 


Contents of File list Example 


task package.a 
Extended Example Input 
— TITLE : CS 4530 Class Project, Lander 
-- AUTHOR : Kevin J. Walsh and Robert R. Ordonio 
-- DATE : 21 November 1992 


-- REVISED  : 22 Nov, 24 Nov, 

-- COURSE : CS 4530, Software Engineering with ADA 

-- SYSTEM : UNIX 

- COMPILER  : Vads6 

-- DESCRIPTION : Package contains all the tasks required for the Lander Program 


-- 22 Nov (1) Added code to CALCULATE task. Code was to test for the ending 
-- conditions, and to be able to exit the loop, and terminate 

-- the task when ending condition was found. 

-- 24 Nov (1) Reinserted the stop entry call into input task, this will be 

-- called bv the calculate task after the input is complete 

-- (2) Recoded CALCULATE task to perform calculations 

-- 27 Nov (1) Integrated keytime code into this package. 


with DATA, TYPES, 
UTILITY PKG, 
CURRENT EXCEPTION, 
TEXT IO, 
IOCTL, 
ТТУ, 
OS FILES; 

use DATA TYPES, 
UTILITY PKG, 
TEXT. IO; 


package TASK PACKAGE is 
-- Declaration of local variables used with the package 
sgttyb buf : tty.sgttyb; 
old flags : short, integer; 
-- Instaniation of Enumeration IO to output ROCKET. CONTROL INPUT variable 
package ROCKET CONTROL INPUT IO is new enumeration, io 
(ROCKET CONTROL INPUT); 
use ROCKET. CONTROL INPUT IO; 


— Instaniation of Enumeration IO to output thc various rocket moter 
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-- variables, rocket positions and fuel capacity. 
package FUEL IO is new float, 10 (FUEL); 
use FUEL IO; 


-- Task will perform all calculations for the program 
task CALCULATE TASK is 

entry INPUT (ROCKET. DIRECTION : in ROCKET. CONTROL INPUT); 
end CALCULATE TASK; 


-- Task will allow the user to input information to the program 
task KEYREAD is 

entry START; 
end KEYREAD; 


end TASK PACKAGE; -- Package specification for task package 


-- Package body for TASK PACKAGE 
package body TASK, PACKAGE is 


-- Declaration of local variables used with package 
CRASH EXCEPTION, 

MISS EXCEPTION, 

SKID EXCEPTION  :exception; 


-- Task allows the user to input data to the program. 
-- Task will verify input to ensure that input is valid 


task body KEYREAD is 


CHARACTER_INPUT : ROCKET_CONTROL_INPUT; 
CHARACTER IO  : character; 

DONE : boolean :z FALSE; 

TEST : natural; 


begin 


select 

accept start; 
Or 

terminate; 
end select; 


loop 
-- Get information from the user 
get (CHARACTER IO); 
-- Determine what the user wants to do 
case CHARACTER IO is 
when ‘и’ => 
test := 0; 
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when ‘i’ => 
test := 1; 
when 'o' 2 
test. 2: 
when ‘p’ => 
teste: 
when ‘h’ => 
test := 4; 
when ‘j’ => 
(esi 5 
when 'k' 2» 
test :z 6; 
when ‘F => 
test := 7; 
when ‘y’ => 
test := 8; 
when ‘b’ => 
test := 9; 
when 'n' z» 
test := 10; 
when ‘m’ => 
test := 11; 
when others => 
new_line (2); 
put_line (“ You have entered the wrong input. Please try again!”); 
end case; 
-- Convert input to rocket control input 
CHARACTER_INPUT := ROCKET_CONTROL_INPUT’ VAL(TEST); 
CALCULATE_TASK.INPUT (CHARACTER_INPUT); 


end loop; 


exception 
when others => 
new_line(2); 
put_line(current_exception.exception_name & “ raised in calculate task.”’); 
new. line(2); 
put line( 'Exiting from the input task. “‘); 
new line(2); 


end keyread; 


-- Task will perform all calculations for the program. Task 
-- will also check landing and call display procedure to 
-- show status of lander information. 


task body CALCULATE TASK is 
-- Declaration of variables used with the task 
CONTROL ROCKET : ROCKET. CONTROL. INPUT; 
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ТЕ5Т : natural; 
begin 
loop 


select 
-- Option to handle user input 
accept INPUT (ROCKET. DIRECTION : in ROCKET. CONTROL INPUT) do 
CONTROL ROCKET :- ROCKET DIRECTION; 
end INPUT; 
Or 
-- No user input therefore calculate with previous data 
delay 1.0; 
CONTROL ROCKET :- A; 
end select; 


-- Conditional to determine if lander has fuel to manipulate rockets 
if FUEL LEFT » 0.0 then 
-- Case statement to reset specific rocket input 
case CONTROL. ROCKET is 
when U => 
POSITIVE_ROCKETS.X := POSITIVE_ROCKETS.X + 1.0; 
when I => 
if POSITIVE_ROCKETS.X > 0.0 then 
POSITIVE_ROCKETS.X := POSITIVE_ROCKETS.X - 1.0; 
end if; 
when O => 
NEGATIVE_ROCKETS.X := NEGATIVE_ROCKETS.X + 1.0; 
when P => 
if NEGATIVE_ROCKETS.X > 0.0 then 
NEGATIVE_ROCKETS.X := NEGATIVE_ROCKETS.X - 1.0; 
end if; 
when H => 
POSITIVE_ROCKETS.Y := POSITIVE_ROCKETS.Y + 1.0; 
when J => 
if POSITIVE_ROCKETS.Y > 0.0 then 
POSITIVE_ROCKETS.Y := POSITIVE_ROCKETS.Y - 1.0; 
end if; 
when K => 
NEGATIVE_ROCKETS.Y := NEGATIVE_ROCKETS.Y + 1.0; 
when L => 
if NEGATIVE_ROCKETS.Y > 0.0 then 
NEGATIVE_ROCKETS.Y := NEGATIVE ROCKETS.Y - 1.0; 
end if; 
when V => 
POSITIVE_ROCKETS.Z := POSITIVE_ROCKETS.Z + 1.0; 
when B => 
if POSITIVE ROCKETS Z » 0.0 then 
POSITIVE ROCKETS Z :z POSITIVE ROCKETS.Z - 1.0; 
end if; 
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when N z» 
NEGATIVE ROCKETS.Z :: NEGATIVE ROCKETS Z + 1.0; 
when M => 
if NEGATIVE_ROCKETS.Z > 0.0 then 
NEGATIVE_ROCKETS.Z := NEGATIVE_ROCKETS.Z - 1.0; 
end if; 
when OTHERS => 
null; 
end case; 
else 
-- FUEL_LEFT = 0 therefore all engines should be at 0.0 
POSITIVE_ROCKETS := (others => 0.0); 
NEGATIVE ROCKETS :z (others 22 0.0); 
end if; 


-- Calculation for new current position 

CURRENT_POSITIONS.X := CURRENT_POSITIONS.X + DELTA_VECTOR.X; 
CURRENT_POSITIONS.Y := CURRENT_POSITIONS.Y + DELTA_VECTOR.Y; 
CURRENT_POSITIONS.Z := CURRENT_POSITIONS.Z + DELTA_VECTOR.Z; 


-- Calculation for new delta vector 

DELTA VECTOR.X .:-POSITIVE ROCKETS.X - NEGATIVE ROCKETS.X; 
DELTA VECTOR.Y :2 POSITIVE ROCKETS.Y - NEGATIVE ROCKETS.Y; 
DELTA VECTORZ .:- POSITIVE. ROCKETS Z - NEGATIVE, ROCKETS Z - 9.8; 


-- Calculation for new fuel left value 
FUEL LEFT ‘= FUEL. LEFT - (POSITIVE ROCKETS.X + 
POSITIVE ROCKETS.Y 4 
POSITIVE. ROCKETS Z 4 
NEGATIVE ROCKETS.X + 
NEGATIVE ROCKETS.Y 4 
NEGATIVE ROCKETS.Z), 


-- Procedure to display to screen position and info 
DISPLAY (FUEL LEFT, POSITIVE ROCKETS, NEGATIVE ROCKETS, 
DELTA VECTOR, 
START. POSITIONS, CURRENT POSITIONS, FINAL POSITIONS); 


-- Test to determine if current position Z lower than final position Z 
if CURRENT. POSITIONS Z «- FINAL POSITIONS Z then 

exit; 
end if; 


end loop; -- Main initial loop to cycle through calculation task 


-- EVALUATE THE LOCATION AND VELOCITY OF LANDER 
if MISS_DISTANCE (CURRENT_POSITIONS.X, 
FINAL_POSITIONS.X, 
CURRENT_POSITIONS.Y, 
FINAL_POSITIONS.Y) then 
-- LANDING IS CONSIDERED A MISS 
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raise MISS EXCEPTION; 


elsif SKID DISTANCE (DELTA, VECTOR.X, 
DELTA VECTOR.Y) then 
- LANDING IS CONSIDERED A SKID 
raise SKID EXCEPTION; 


elsif CRASH. DISTANCE (DELTA, VECTOR 2) then 
-- LANDING IS CONSIDERED A CRASH 
raise CRASH_EXCEPTION; 


else 
-- LANDING IS CONSIDERED A SUCCESS!!!! 
new_line(2); 
put line(-CONGRATULATIONS. Successful landing accomplished. “); 
new_line(2); 
abort KEYREAD; 
end if; 


exception 

when MISS_EXCEPTION => 
new_line (2); 
put line (^ SORRY, BUT THE LANDING IS CONSIDERED A MISS”); 
put_line (“ Calculations stopped, program aborted. ‘‘); 
new_line (2); 
abort KEYREAD; 

when SKID_EXCEPTION => 
new_line (2); 
put line (^ SORRY, BUT THE LANDING IS CONSIDERED A SKID”): 
put line (^ Calculations stopped, program aborted. “); 
new_line (2); 
abort KEYREAD; 

when CRASH_EXCEPTION => 
new_line (2); 
put_line (“* SORRY, BUT THE LANDING IS CONSIDERED A CRASH”); 
new_line (2); 
abort KEYREAD; 


end CALCULATE_TASK; 


end TASK_PACKAGE; -- Package body for task_package 
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Extended Example Output 


REPORT A 


Report Name: Thesis example 
File List used: example 

Requested by: Kevin J. Walsh 
Measured as: Physical source lines 


Delivered as: Delivered as source 


Counted: 193 
Estimated: 0 
Total Total Individual 
Includes Excludes totals 
Statement type 5 


When a line or statement contains more than 
one type, classify it as the type with the 


highest precedence. 

] Executables Ргесейепсе => 1] XXXX 157 
2 Nonexecutables 

3 Declarations 2 XXXX 36 

4 Compiler Directives 3 XXXX 0 

5 Comments 

6 On their own lines 4 XXXX 0 

7  Onlines with source code 5 XXXX 0 

8  Bannersandnonblank spacers 6 XXXX 0 
9 Blank (empty) comments 7 XXXX 0 
10 Blank lines 8 XXXX 0 
How Produced 

] Programmed XXXX 193 

2 Generated with source code generators ХХХХ 0 
3 Converted with automated translators XXXX 0 
4 Copied or reused without change XXXX 0 
5 Modified XXXX 0 

6 Removed XXXX 0 
Orgin 

1 New Work: no prior existence XXXX 193 
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2 Prior work: taken or adapted from 
3 A previous version, build, or release XXXX 0 
4 Commercial, off the shelf software 

COTS), other than libraries XXXX 0 
5 Government furnished software (GFS), 

other than reuse libraries XXXX 0 
6 Another product XXXX 0 
7 A vendor-supplied language support 

library (unmodified) XXXX 0 
8 A vedor-supplied operating system or 

utilitv (unmodified) XXXX 0 
9 A local or modified language support 

library or operating system XXXX 0 
10 Other commercial library XXXX 0 
11 Areuse library (software designed 

for reuse) XXXX 0 
12 Other software component or library XXXX 


Usage 
1 In or as part of the primary product XXXX 193 
2 External to or in support of the 
primary product XXXX 0 


Development Status 


] Estimated or planned XXXX 0 

2 Designed XXXX 0 

3 Coded XXXX 0 

4 Unit tests completed XXXX 0 

5 Integrated into components XXXX 0 

6 Testreadiness review completed XXXX 0 
7 Software (CSCI) tests completed XXXX 0 
8 System tests completed XXXX 193 
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REPORT B 


Report Name: Thesis example 
File List used: example 
Requested by: Kevin J. Walsh 


Measured as: Physical source lines 


Delivered as: Delivered as source 


Counted: 193 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 
When a line or statement contains more than 
one type, classify it as the type with the 
highest precedence. 


1 Executables Precedence => 1- XXXX 157 
2 Nonexecutables 

3 Declarations 2 XXXX 36 

4 Compiler Directives 3 XXXX 0 

5 Comments 

6 On their own lines 4 XXXX 0 

7 On lines with source code 5 XXXX 0 

8 Banners and nonblank spacers 6 XXXX 0 
9 Blank (empty) comments 7 XXXX 0 
10 Blank lines 8 XXXX 0 


How Produced 


1 Programmed XXXX 193 

2 Generated with source code generators XXXX 

3 Converted with automated translators XXXX 

4 Copied or reused without change XXXX 0 
5 Modified XXXX 0 

6 Removed XXXX 0 


Orgin 


1 New Work: no prior existence XXXX 193 
2 Prior work: taken or adapted from 
3 A previous version, build, or release ХХХХ 0 
4 Commercial, off the shelf software 

COTS), other than libraries XXXX 0 
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5 Government furnished software (GFS), 


other than reuse libraries XXXX 0 
6 Another product XXXX 0 
7 Avendor-supplied language support 
library (unmodified) XXXX 0 
8 A vedor-supplied operating system or 
utility (unmodified) XXXX 0 
9 Alocal or modified language support 
library or operating system XXXX 0 
10 Other commercial library XXXX 0 
11 A reuse library (software designed 
for reuse) XXXX 0 
12 Other software component or library XXXX 0 
Usage 
1 In or as part of the primary product XXXX 193 
2 External to or in support of the 
primary product XXXX 0 


Development Status 


1 Estimated or planned XXXX 0 

2 Designed XXXX 0 

3 Coded XXXX 0 

4 Unit tests completed XXXX 0 

5 Integrated into components XXXX 0 

6 Test readiness review completed XXXX 0 
7 Software (CSCI) tests completed XXXX 0 
8 System tests completed XXXX 193 


Programmed Generated Converted Copied Modified Removed 
Estimated or 
planned 0 0 0 0 0 0 
Designed 0 0 0 0 0 0 
Coded 0 0 0 0 0 0 


Unit tests com- 
pleted 0 0 0 0 0 0 


Integrated into 
components 0 0 0 0 0 0 


Test readiness 


review com- 
pleted 0 0 0 0 0 0 
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Software (CSCI) 
tests completed 0 0 0 0 0 0 


Svstem tests 
completed 193 0 0 0 0 0 





REPORT C 


Report Name: Thesis example 
File List used: example 
Requested by: Kevin J. Walsh 


Measured as: Physical source lines 
Delivered as: Delivered as source 
Counted: 240 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 
When a line or statement contains more than 
one type, classify it as the type with the 


highest precedence. 

1 Executables Precedence => 1 ХХХХ 

2 Nonexecutables 

3 Declarations 2 XXXX 36 

4 Compiler Directives 3 XXXX 0 
5 Comments 

6  Ontheirown lines а ХХХХ 47 
7  Onlines with source code 5. XXXX 

8 Banners and nonblank spacers 6 XXXX 

9 Blank (empty) comments 7 XXXX 

10 Blank lines 8 XXXX 0 
How Produced 

] Programmed XXXX 240 


2 Generated with source code generators ХХХХ 
3 Converted with automated translators XXXX 


4 Copied or reused without change XXXX 

5 Modified XXXX 0 
6 Removed XXXX 0 
Orgin 

1 New Work: no prior existence XXX X 


2 Prior work: taken or adapted from 
3 A previous version, build, or release ХХХХ 
4 Commercial, off the shelf software 
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157 


0 
0 
0 
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COTS), other than libraries XXXX 0 
5 Government furnished software (GFS), 

other than reuse libraries XXXX 0 
6 Another product XXXX 0 
7 A vendor-supplied language support 

librarv (unmodified) XXXX 0 
8 A vedor-supplied operating system or 

utilitv (unmodified) XXXX 0 
9 Alocalor modified language support 

library or operating system XXXX 0 
10 Other commercial library XXXX 0 
11 Areuse library (software designed 

for reuse) XXXX 0 
12 Other software component or library XXXX 0 


Usage 
1 In or as part of the primary product XXXX 240 
2 External to or in support of the 
primary product XXXX 0 


Development Status 


1 Estimated or planned _ ХХХХ 0 

2 Designed XXXX 0 

3 Содеа ХХХХ 0 

4 Unit tests completed XXXX 0 

5 Integrated into components XXXX 0 

6 Test readiness review completed XXXX 0 
7 Software (CSCI) tests completed XXXX 0 
8 System tests completed XXXX 240 


Programmed Generated Converted Copied Modified Removed 


Executable 157 0 0 0 0 0 
Declarations 36 0 0 0 0 0 


Compiler dir- 
ectives 0 0 0 0 0 0 


Comments on 
their own line 47 0 0 0 0 0 


Comments оп 

lines with 

source code 0 0 0 0 0 0 
Banner and non- 


blank spacers 0 0 0 0 0 0 
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Blank (emptv) 
comments 0 0 0 0 0 


Blank lines 0 0 0 0 0 
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REPORT D 


Report Name: Thesis example 
File List used: example 

Requested by: Kevin J. Walsh 
Measured as: Physical source lines 


Delivered as: Delivered as source 


Counted: 193 
Estimated: 0 
Total Total Individual 
Includes Excludes totals 
Statement type 


When a line or statement contains more than 
one type, classify it as the type with the 


highest precedence. 

] Executables Precedence => 1 - XXXX 157 
2 Nonexecutables 

3 Declarations 2 ХХХХ 36 

4 Compiler Directives 3: XXXX 0 

5 Comments 

6 On their own lines 4 XXXX 0 

7 On lines with source code 5 XXXX 0 

8 Banners and nonblank spacers 6 XXXX 0 
9 Blank (empty) comments 7 XXXX 0 
10 Blank lines 8 XXXX 0 
How Produced 

1 Programmed XXXX 193 

2 Generated with source code generators XXXX 

3 Converted with automated translators XXXX 0 
4 Copied or reused without change XXXX 0 
5 Modified XXXX 0 

6 Removed XXXX 0 
Orgin 

1 New Work: no prior existence XXXX 193 
2 Prior work: taken or adapted from 

3 A previous version, build, or release ХХХХ 0 
4 Commercial, off the shelf software 

COTS), other than libraries XXXX 0 
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5 Government furnished software (GFS), 


other than reuse libraries XXXX 0 
6 Another product XXXX 0 
7 A -vendor-supplied language support 
library (unmodified) XXXX 0 
8 A vedor-supplied operating system or 
utility (unmodified) XXXX 0 
9 A local or modified language support 
library or operating system XXXX 0 
10 Other commercial library XXXX 0 
11 Areuse library (software designed 
for reuse) XXXX 0 
12 Other software component or library XXXX 0 
Usage 
1 In or as part of the primary product XXXX 193 
2 External to or in support of the 
primary product XXXX 0 
Development Status 
1 Estimated or planned ХХХХ 0 
2 Designed XXXX 0 
3 Coded XXXX 0 
4 Unit tests completed XXXX 0 
5 Integrated into components XXXX 0 
6 Test readiness review completed XXXX 0 
7 Software (CSCI) tests completed XXXX 0 
8 System tests completed XXXX 193 


Programmed Generated Converted Copied Modified Removed 


New Work: no 
priorexistence 193 0 0 0 0 0 


A previos ver- 


sion, build, 

or release 0 0 0 0 0 0 
COTS 0 0 0 0 0 0 
GFS 0 0 0 0 0 0 


Another product 0 0 0 0 0 0 
A vendor suppl- 


ied language 
support library 0 0 0 0 0 0 
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A vendor-suppl- 

ied operating 

system or 

utility 0 0 0 0 0 


A local or mod- 

ified language 

support librarv 

Or operating 

svstem 0 0 0 0 0 


Other commer- 
cial librarv 0 0 0 0 0 


A reuse library 

(software 

designed for 

reuse 0 0 0 0 0 


Other software 
component or 
library 0 0 0 0 0 
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ВЕРОКТЕ 


Report Name: Thesis example 
File List used: example 
Requested by: Kevin J. Walsh 


Measured as: Physical source lines 
Delivered as: Delivered as source 
Counted: 240 
Estimated: 0 


Total Total Individual 
Includes Excludes totals 


Statement type 
When a line or statement contains more than 
one type, classify it as the type with the 


highest precedence. 

1 Executables Ргеседепсе =>1 XXXX 157 
2 Nonexecutables 

3 Declarations 2 ХХХХ 36 

4 Compiler Directives 3. XXXX 0 

5 Comments 

б Ontheirownlines 4 ХХХХ 47 

7  Onlines with source code 5 ХХХХ 0 

8  Bannersandnonblank spacers 6 XXXX 0 
9 Blank (empty) comments 7 XXXX 0 
10 Blank lines 8 XXXX 0 
How Produced 

] Programmed XXXX 240 


2 Generated with source code generators ХХХХ 

3 Converted with automated translators XXXX 

4 Copied or reused without change XXXX 0 
5 Modified XXXX 0 

6 Removed XXXX 0 


Orgin 


1 New Work: no prior existence XXXX 240 
2 Prior work: taken or adapted from 
3 A previous version, build, or release ХХХХ 0 
4 Commercial, off the shelf software 

COTS), other than libraries XXXX 0 
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5 Government furnished software (GFS), 


other than reuse libraries XAXX 0 
6 Another product XXXX 0 
7 A vendor-supplied language support 
librarv (unmodified) XXXX 0 
8 A vedor-supplied operating system or 
utility (unmodified) XXXX 0 
9 A local or modified language support 
library or operating system XXXX 0 
10 Other commercial library XXXX 0 
11 Areuse library (software designed 
for reuse) XXXX 0 
12 Other software component or library ХХХХ 0 
Usage 
1 In or as part of the primary product XXXX 240 
2 External to or in support of the 
primary product XXXX 0 


Development Status 


] Estimated or planned XXXX 0 

2 Designed XXXX 0 

3 Coded XXXX 0 

4 Unit tests completed XXXX 0 

5 Integrated into components XXXX 0 

6 Test readiness review completed XXXX 0 

7 Software (CSCI) tests completed XXXX 0 

8 System tests completed XXXX 240 
Orgin.New work 


Programmed Generated Converted Copied Modified Removed 


Executable 157 0 0 0 0 0 
Declarations 36 0 0 0 0 0 


Compiler dir- 
ectives 0 0 0 0 0 0 


Comments on 
their own line 47 0 0 0 0 0 


Comments on 


lines with 
source code 0 0 0 0 0 0 
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Ваппег ала поп- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 
comments 0 0 0 0 0 0 
Blank lines 0 0 0 0 0 0 


Orgin.Previos version 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 

ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 

comments 0 0 0 0 0 0 

Blank lines 0 0 0 0 0 0 
Orgin.COTS 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 

ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Comments on 
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lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (empty) 

comments 0 0 0 0 0 0 

Blank lines 0 0 0 0 0 0 
Orgin.GFS 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 


Declarations 0 0 0 0 0 0 
Compiler dir- 
ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 

comments 0 0 0 0 0 0 

Blank lines 0 0 0 0 0 0 
Orgin.Annother product 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 

ectives 0 0 0 0 0 0 


Comments on 
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their own line 0 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 0 


Валпег апа поп- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 
comments 0 0 0 0 0 0 
Blank lines 0 0 0 0 0 0 


Orgin.A vendor supplied language support librarv 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 

ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (empty) 
comments 0 0 0 0 0 0 
Blank lines 0 0 0 0 0 0 


Orgin.A vendor supplied operating system or utility 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 
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ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 0 


Валпег ала поп- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 
comments 0 0 0 0 0 0 
Blank lines 0 0 0 0 0 0 


Orgin.A local or modified language support librarv 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 

ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Соттепб оп 
lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 
comments 0 0 0 0 0 0 
Blank lines 0 0 0 0 0 0 


Orgin.Other commercial librarv 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
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Declarations 0 0 0 0 0 0 


Compiler dir- 
ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Соттеп оп 
lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 

comments 0 0 0 0 0 0 

Blank lines 0 0 0 0 0 0 
Orgin.A reuse librarv 


Programmed Generated Converted Copied Modified Removed 


Executable 0 0 0 0 0 0 
Declarations 0 0 0 0 0 0 
Compiler dir- 

ectives 0 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 0 


Blank (emptv) 
comments 0 0 0 0 0 0 
Blank lines 0 0 0 0 0 0 


Orgin.Other software component or librarv 


Programmed Generated Converted Copied Modified Removed 
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Executable 0 0 0 0 0 
Declarations 0 0 0 0 0 


Compiler dir- 
ectives 0 0 0 0 0 


Comments on 
their own line 0 0 0 0 0 


Comments on 
lines with 
source code 0 0 0 0 0 


Banner and non- 
blank spacers 0 0 0 0 0 


Blank (emptv) 
comments 0 0 0 0 0 
Blank lines 0 0 0 0 0 
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КЕРОКТЕ 


Report Name: Thesis example 
File List used: example 

Requested by: Kevin J. Walsh 
Measured as: Physical source lines 


Delivered as: Delivered as source 


Counted: 284 
Estimated: 0 
Total Total Individual 
Includes Excludes totals 
Statement type 


When a line or statement contains more than 
one type, classify it as the type with the 


С е 


highest precedence. 

] Executables Precedence => 1 ХХХХ 157 
2 Nonexecutables 

3 Declarations 2 ХХХХ 36 

4 Compiler Directives 3 ХХХХ 0 

5 Comments 

6 On their own lines 4 ХХХХ 47 

7  Onlines with source code 5 ХХХХ 0 

8 Banners and nonblank spacers 6 ХХХХ 5 
9 Blank (empty) comments 7 ХХХХ 0 
10 Blank lines 8 ХХХХ 39 
How Produced 

1 Programmed XXXX 284 

2 Generated with source code generators XXXX 

3 Converted with automated translators XXXX 

4 Copied or reused without change XX XX 0 
5 Modified XXXX 0 

6 Removed XXXX 0 
Orgin 

1 New Work: no prior existence XXXX 284 
2 Prior work: taken or adapted from 

3 A previous version, build, or release ХХХХ 0 
4 Commercial, off the shelf software 

COTS), other than libraries XXXX 0 
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5 Government furnished software (GFS), 


other than reuse libraries XXXX 0 
6 Another product XXXX 0 
7 A -vendor-supplied language support 

library (unmodified) XXXX 0 
8 A vedor-supplied operating system or 

utility (unmodified) XXXX 0 
9 Alocal or modified language support 

library or operating system XXXX 0 
10 Other commercial library XXXX 0 
11 Areuse library (software designed 

for reuse) XXXX 0 
12 Other software component or library XXXX 
Usage 
1 In or as part of the primary product XXXX 284 
2 External to or in support of the 

primary product XXXX 0 


Development Status 


] Estimated or planned XXXX 0 

2 Designed XXXX 0 

3 Coded XXXX 0 

4 Unit tests completed XXXX 0 

5 Integrated into components XXXX 0 

6 Test readiness review completed XXXX 0 
7 Software (CSCI) tests completed XXXX 0 
8 System tests completed XXXX 284 
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[ВЕТ 90] 


[ВЕК 90] 


ІС5С 92) 


[NAS 90] 


[NAS 90] 


[NGU 88] 


[SLI 87] 
[SEL 90] 


[SEI 93] 


LIST OF REFERENCES 


Beizer, Boris, Software Testing Techniques, 2d ed., pp 213-242, Van 
Nostrand Reinhold, 1990. 


Berzins, V., Luqi, Software Engineering with Abstractions, pp l-21, 
Addison-Weslev Publishing Companv, 1990 


Communications System Center/Software Department, Tinker Air Force 
Base, Oklahoma, “The Source Code Line Counter Program,” T. Goff, pp. 1- 
8, 17 December, 1992. 


McCabe, Tom, “A Complexity Measure,” IEEE Transactions Software 
Engineer, pp 308-320, December 1976. 


National Aeronautics and Space Administration, Goddard Space Flight 
Center, Transportable Applications Environment Plus User Interface 
Developer's Guide, v. 5.1, pp 1-265, April 1991. 


Nguyen, T., Forester, K., ALEX - An Ada Lexical Analysis Generator, Version 
1.0, Arcadia Environment Research Project, Department of Information and 
Computer Science, University of California, Irvine, 1988. 


Set Laboratories, Inc., PC-METRIC (PASCAL), pp 1-1 to 6-5, 1987. 


Self, J., AFLEX - A fast lexical analyzer generator for Ada, Version 1.1, 
Arcadia Environment Research Project, Department of Information and 
Computer Science, University of California, Irvine, 1 September 1990. 


Software Engineering Institute, Software Engineering Symposium, The 
Business of Software Engineering: The Competitive Edge, The SEI 
Measurements Checklist--User Experience, August 1993. 


[SEI-A 92] Software Engineering Institute, Technical Report 19, Software Measurement 


for DoD Systems: Recommendations for Initial Core Measures, Carleton, А., 


D., and others, pp. 1-68, September 1992. 


[SEI-B 92] Software Engineering Institute, Technical Report 20, Software Size 


Measurement, Park, R. E., pp. 1-167, September 1992 


[SEI-C 92] Software Engineering Institute, Technical Report 21, Software Effort & 


Schedule Measurement: A Framework for Counting Staff-Hours and 
Reporting Schedule Information, Goethert, W., B., Bailey, E., K., and Busby, 
M., B., pp 1-10, September 1992. 


271 


[SEI-D 92] Software Engineering Institute, Technical Report 22, Software Quality 
Measurement: A Framework for Counting Problems and Defects, Florac, W. 
A., pp l-20, September 1992 


[SSD 90] Software Systems Design, Inc., ADADL User's Manual, Release 5.0, pp 1- 
130, July 1990. 


[SUN 90] Sun Microsystems, Inc, SunOS Reference Manual, Revision A of 27 March, 
1990. 


[TAB 88] Taback, D., Deepak, T., AYACC - Users Manual, Version 1.0, Arcadia 
Environment Research Project, Department of Information and Computer 
Science, University of California, Irvine, 1988. 


[WAR 90] Warner Books Inc., Webster’s New World Dictionary, pp 38, 236, August 
1990. 


292 


INITIAL DISTRIBUTION LIST 


Defense Technical Information Center 
Cameron Station 
Alexandria, VA 22304-6145 


Dudley Knox Library 

Code 052 

Naval Postgraduate School 
Monterey, CA 93943-5002 


Dr. Timothy J. Shimeall 

Computer Science Department Code CS/Sm 
Naval Postgraduate School 

Monterey, CA 93943-5118 


MAJ David Gaitros 

Computer Science Department Code CS/Ga 
Naval Postrgraduate School 

Monterey, CA 93943-5118 


Dr. Ted Lewis 

Computer Science Department Code CS/Lt 
Naval Postgraduate School 

Monterey, CA 93943-5118 


MAJ Kevin J. Walsh 
18 Carty Ave. 
Fort Monmouth, NJ 07703 


Ms. Anita Carleton 

Software Engineering Institute 
Carnegie Mellon University 
Pittsburgh, PA 15213-3890 


Dr. Marshall Potter 
NISMC-03 

Bldg. 166 

Washington Navv Vard 
Washington, DC 20374-5070 


21) 


uss 2 

















ka NN 
к” “TE SCHOO! 
MON: 53101 













"ч? E ñ П 


УТСА (ka SOMMA) 
Ж 


"ur О g DL Анели ы METH ша | DUDLEY KNOX LIBRARY 


еу a Pris ET 






















































а: PULO C a А | 
Вин пи УК "ew" , А 5 " | i | | 
К T А : 
^ E СН TD Ч E | 
P: ior Aa b | 
у orca ai = fpe Je П 1 FA А 
е Iun А. КҮТЕ U MILL Ж! N | 
Р ж П 471 А E. ma Dir ic TT] Е ДЫ я | | 
ERES Ме | 3 2768 00019479 9 
. . 
БУСЫ АП 0 i as Е | 





Ë ti 
ПЕЛ 2n TI 
2% NTI PM: ys! 4 i А D > 
“4 401+? п. Г [i 42 Ы) К-Ы Е LI А E 
ГА re РУЫ Te eT Ni. 1 ЕГ 1 f s ° st 
ESPECIE RD PR 
АА А АРА та 
tyra Neha e Т 
nTH КАД 


А 
nia 








INPS 
Ls %. 0! nM SUP A, 




























U 
LA "м ДЕЛИ 
АГИ ҮЛ а 


















































































































C. l 
ALLE ғ”... ГД ПАРОЛА ч 
TENE] Ur СПА D 
^ i 
р 
ĦU ache 
ыы 
4075 Wire 
= H 
" PS eh us 
я 
А. ЕЕ 
EN Ипер A А 
ary fetes KA О ЕИН 
АМО ОИ ЕТ ВА АРИ 
D А 
А! 
` р . 
- u . L 
m М E 
LLLA PE PN | 
И АНИ Е ИАН Z ` 
ЖРЕД: à Ж” ІЗГІ i у 
3 a "E 
E NI 
ы ' 
М ЖА 2 . 
LE ГУК ТІН 
PR TONI a , 
А an у у . . 
eu me i 
. ГЕ 
.. 
*p u^ | 
stb ota 
rear ° n 
1 ЯН wa 
СЧА De Dv a 2 ı | 
"ra LARES IT Е 8 .жа е ht EDU у 
» LI . . 
баз 
WP) bt, Ы U . 
1. ging ea & he "LI E 
ПО При 
Ре Pa sh p ee y 
“....1 PET) Y 
OK STI Р Мо 
UT PREND | 
n 
1 
S Д 
" 
Д . 
H 
are 
р 
Д 
" 
š О 
СЕЕ О 
Ы ЖҮ E 1 


D 























LI 
Й 
1 
E 
t 
А 
2 
Н 
H 
H 
LES 
H 
U 
П 
С LEE LET " А АЕ " LI 1 U t œ ñ 1 " 1 я H . 
4247 kd Lód] Е 1 LI U П . . И ' " 
i "T 5% L Ры А 17 7 1% ы ' 1 ва U 1 1 А d U Й man g 1 ы Й E 
Pa J. НА 4 T А 0 Ц P ' oe А t . " а 4 " Й Й " 
+ i ; Д " " " " И .. TT D б Ж ' и 
кеў тағ ЦА ie = А n g .. B L Ц U М Ц Ц ( g . kI . ШП . 
ary a ШЕИ ИТИ) . $ П . . П П Й n P. ry ta 1 
PERS 4 2’ а А DEED ГЕ ТАГ "P "P ñ me 
LI " n . ` m 4 LI .. LI ta U . 1 
> ЧАД di ra .. 8 Ц » ot .. . " " . E E A 
P= y КГДАЙ a} D T " ы ^ Š ь Ц . . E 7 kI 8.9 . 
"t. y му Do е А 8 ^ ' А Я П о ЖҰР Й » "e t 
y ew U tis б ИС ШП ы В r ба 4 ' " UNU А А И r " 
Do EE A "РЕ ^ ħ Й "DID " TOP " E . T " ti В "mn " n А 
а дао ' Sun í E кш я а g р 4.41 D р e. "D р D 
Ld B^ n E] * à б g U . [ ki U 
t ы 
= О б ' 
"s J ....1 ОА Р . Й 
" ki 1 U р ' . . А t g H 
PC р U H ' E 
kl П и А " О U 
U E М M б ^ . 
.Г % М М ПГ ee П n Й U 
П [] ' Ы LI . H А ' 
П . “ „| ШЫ [E ' E U я 1 П n ' " D 
` М b . 1 U . CUL П П 
б СЕ [E] U Ц р U П D 
` 1 . E 
Le Ы " ' ' 
ч LI LI LI LI 
ы | М ЫЙ, u ГЕ g Й Ш 
U М LET Й Li U . 
U 0 ' 
А . 
U E , ' a EET П t 
ti . ... " D Д 1 
P 0 x ‘ ' П D 
. О ta . i LI 
. Ц ... . n n 
.. * Й 
E 
' 
a . . 
` П Пе RI H ' 0 
z . L] ' 
L П А . 
kl ed D g 
П - a L Ц . U . 
О U ° ее Ы tee М П 
| D " it р А 
Й . . LI . 4 
L] ` ^ U 
. "^ А ' О 
LI u ' Й LI 
П U М [] 
U ы Ы О 
r 1 E 
“ ү: 
A г ‘ ( ‘ р Ш 
ЖА. `. ы Ц ‘ П 
mar Ау) ji р ` А 
- “Жы 0 б . А 
" 8 же u f P wu * t . ' 





